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yT^-jVX' *Key of C\ *Key of 



:giSt|a!m{--tifcl2«IS2bU S 

-r(?5(;. ^^fg(75^a-*Keyof Am" 
fg(/\— t-v^ .■71':^— )<7)2 



100 '< Music Workshop No. 4 > 
110 '< SCALE & CODE NAME > 
120 '< By Y. KITAGAMI 1991(0) > 
130 DEFSTR A-T 
140 PLAY 'T120 V08 LI 04" 

150 *-- 'JXl-:2 yy't- ^>-A 

160 ■ » [# ] GROUP * 

170 ' [G 1 # 1 

180 A2="G AB>CDEF+G<R 

190 ' [D ] # 2 

200 A3="D E F+ G A B >C+ D < R 

210 ■ [A ] # 3 

220 A4="A B >C+ D E F+ G+ A < R 

230 • [E ] # 4 

240 A5="E F+ G+ A B >C+ D+ E < R 

250 ■ [B 1 # 5 

260 A6=''B >C+ D+ E F+ G+ A+ 8 < R 

270 ■ IF#1 # 6 

280 A7="F+ G+ A+ B >C+ 0+ E+ F+ < R 

290 ■ * [b ] GROUP * 

300 ' [F 1 b 1 

310 A8=''F G A B->C D E 

320 ' [Bbl b 2 

330 A9="B->C D E- F G A 

340 ' lEb] b 3 

350 AA="E- F G A- B->C D 

360 ' [Ab] b 4 

370 AB="A- B->C D- E- F G A- < R 

380 ' (Dbl b 5 

390 AC="D- E- F G- A- B->C 

400 ■ [Gb] b 6 

410 AD=''G- A- B- C->D- E- F G- < R' 

420 PLAY A2 

430 ' iVii'f A A2 A? AD Vt' Jit ^^it-f 



F < R' 
B- < R' 
E- < R 



D- < R' 



'Key of C H *Key of Am*CilRl U^ 

^ii^x^^i(r)X\ mcx-itu^' 

^^ L fz^) tm^ ^ t -To ±mM 
izh^mzi.tm=^ti^^(.-thtixi^ 
itij\ m^x■^t7^\^'rm$^X' 

zi- \--chmm<r)tsmx'smizf£:b 
(nxi^mLx\.^tri]\ yar'< 



-izu^tus.t'mwxush^) t-a- 
^. ztih<D^'iiiis\-hmmzit 

ca— K-^^-AA^'$)iji-r. zi 

{\)js-=E--^mmt^=^(nm. 
(2 )/^-*--(;>afll^0^# ^t- 



ifei 



100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 

G 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 



'< Music Workshop No. 4 > 

*< SCALE & CODE NAME > 

'< By Y. KITAGAMI 1991 (C) > 

DEFSTR A-T 

PLAY "T120 V08 LI 04" 

•-- 'j;tl-:3 7-ft- X^-A 

• [Am ] (Key) 1 1 Oct •)! 

■ * tfi7A VO- * 

AE="A B>CDEFG A<R" 
' * !\-lZ','] ^if- * 
AF = "A B >C D E F G+ A < R" 
' * ;*Dt' it*} '-ft- * 

• « UP I- DOWN T*A f1\'^}T' fiO-f * 
AG="A B >C D E F+ G+ A < R >A 
F E D C <B A R" 

•-- vyj ; tn< 

' » i*v Vjt< * 

' « D * 

AH="C D E G A >C < R" 

■ « 'M * 

AI^-C D F G A >C < R" 

' * a-) * 

AJ = "C D F G B- >C < R" 

' * r/ * 

AK="C D- F G A- >C < R" 

• * t^il * 

AL = ''C E F G B >C < R" 

' * '/ T •>- » 

AM="C D E- G- G A- B >C < R" 

• * 7'A- )-\ 1* 

AN="C E- F F+ G B->C < R" 

• * 7' A- )-\ 2* 

AO="C D E- E F F+ G A B->G < R" 

' * 7' ^<1t'>i * 

AP="C E- F+ A >C < R" 

■ » t-Y xiy\ * 

AQ="C D E F+ G+ B- >C < R" 

PLAY AE 

' Vjlii A AE *7 AQ 7?* 3blf ^rt-f 



97 









Sus4 -5 (AUG) + G 6 7 maj7 -9 9 +9 M 



mirnrir 



-7T 

F 






h-T-fJ-K-a-K 



4^(7)3— h' 



■^■x-i'— ■ h^-i'7'K • =1— K 



100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 



'< Music Workshop No. 4 > 

■< SCALE & CODE NAME > 

'< By Y. KITAGAMI 1991 (C) > 
_MUSIC(1.0, 1. I. 1. 1. 1. 1) :DEFSTR A-T 
T="T120" 

C=T+"V15 LI 0560": 'Code 3 
D=T+"V15 LI 0560": "Code 2 
E=T+"VI5 LI 0560": 'Code 1 
F=T+"V15 LI O5e0": "Bass 
PLAY#2, C, D, E, F 

]~- 'Uh:4 :-r 

* ^y' t- 3-K 4 Voice * 

07 CM7 C6 C7-5 C7sus4 C7+5 
C1="B- B AS- B- B- R' 
DI="G G G G- G G+ R' 
Et="E E E E F E R' 
FI="C C C C C C R' 
Voice * 



* 7if- 1'}-' 4 



Cm7 CmM? Cni6 Cm7-5 Cm7+5 Cdim 



C2=''B- B A B- 

D2="G G G G~ 

E2="E- E- E- E- 

F2="C C C C 

PLAY#2, CI. D1, El. Fl 



B- 
G+ 
E- 
C 



A R' 

G- R' 

E- R' 

C R' 



' 7n~ D~h* 
PLAY#2. C2, D2, E2. F2 



m^-a-—- f-^'TT'K- =i-K 

^^^'r>-<A.lZ\iiT §fz(DX\ mi 

z (D^K t x-mup\ ^^^x-mt) 

'■)tUz. ^Xh K5V. U7r 

oiz^i.X\.^tto ^It'H.'^fjii^ 
't<7:>mfzi:m-z>X itz^i^-"^ 

i-xt.<r>:2~\^'t<m-mx\ zzt 

T'f-fc*^^lgC03- K • ZU> 
i>liX$^<7)X'tA\ =i~i^-(Dm 

lih X -^ t^^xr, zz^^hli 

'^^^mtxi^^tTo 

M2^hl~Jt^Xifz$l\ 
h^-rZF' =i-K(iK 3. 5 



mmLtUzt)\ 4^^z]-K(j 

~c733^iZ)Z]— Ftcato^^-fT}- 

■ 7 (iJU- h^;:)^ii3S7Jt(;)^^ 
iP;tS 

7<7)o<zi-F(igfeJ: <tliT 

TttYz^^*p^jr„ J^-^c7):^ 

r^c7)T'. "C7"(J*->--fey> 
^". ^^Cm7*(i'v- ^-fTt— ty 

■:i:7^t75^^iB^^^^, 7 <7) 

Js 7 ^ t (3 S ^ fc < gl]T1-c7)T- 
'-^.LX<fz$'\.\ Zmt^t^-:* 

TX-^^Xhi-r-z>zoX't. ^^ 

(JV>-i'-''T-. *CM7'[J*->- 
=1- F • ^— A«ft— ?nTL^ 



98 




*,^JS■t^:^o C6. Cm64'irt;5=i- 
■-5. b5(i;^'r-JUc^5S@c7) 

'->— ty>- 7^-y h7<7:^\ 
ibtlX^^tto 

^[zip ;l ^ -To ^^(i *C7Sus4^" ti 

To 
[elLXfclRlU^IS 

%<n-^<p^-y'^^%.xwiMnr 



Tb^i^ 4 #g ^ 6 # @ t-^ \-^ - - 

(itg^f^^^. *CBassF't;b\ 
*ConF\ VF"^^^LSTo U 

zi- K(i*?liT-(5&t)ns - 1 \tu 

Faug=Aaug-C#aug=D b aug 
^fm. [slCa-FT'To *fc7 

ti2mS)'js-r= *c7+5''[iv 

■ dimtJJs 3 gX-mtafc 4 OC7)# 

*dim7*i:RI£?n5.:: t fcfe 

Cdim7C7)^j^^(3: K. ^. V. 7 

>' i; L ^ coCi^T'-r ta„ :^ ^ -> -y 
<;X-W,t.l^''>^^^^t-^-h\ i> 
^^ Xx-iim 7 jf i: L ^ T (75 1 i '^j: ^. ^ J: 

7 ^C75^^dim7(7>^i; Wt "»: i-^ 

X)U—Vi:Ui}o=b(nx\ 
Cdim=E b dim=G s, dim=Adim 

^^■^■?-yxml^$n^^- 

h'iiiiijLX'T. zzt'hitho i 



xitm!^=^<^mn^Li.t. 

=l_f--.;i-,-AtZ9. 11. 13c7)ia 

■y ^ 7> n- KCju- h ^^ib 9 ^<7> 

CO :*- ^ 5- - y'Jz.<7>±^±(r>=^ ( S 
9gc75^^iD^-&ii-a-'add9'i: 

ctL(iMU7>^'t^^L 
J -To 'J^^T L fc 9 ^^'^^t U i 







;^nzl3^(;)^^:tiBx.§ 

m^htHzr^. 3#g£ 7#g 
^A.<r>X\ Sf[J1^^:S'-7'rt 

^hr>tx< i^mx-B i arx'To 

n-K^:^^ -5(751-, i^^o^ 
Ji-u- Ky-y^*^ttim?nTi^S 

-rc75T\ ^n?r##iz-rsi:J:') 

[- f)^h^^M.t2tzh(7)Xt<7^X\ 

'Z-tLh'Si'^Xit^^) i^±^*^o 




>L^ 


1 1 


l^'y^S^ 


Co 


^^^^^ 


r^ 


§ (^^ 


?N^ 


%^ /yl 


\\ 


»;;k' 


& 
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WORKBOX 




ift. <75Zr'J;^?rl3^JlzLT*^*L 

(7>A Cl10Hz)t r -5 t. 220Hz. 
330Hz. tU9J:o(Z^ife 



$' M iS^f^f) ~ i: ti^X'B- ^(DX't. 

x\ i^MWi^'p. -y-os^ 

^f^t-iS?^^^^-r^ J: T ■r?- 
^LTi.^<t. mmzii(7)z^i) 
mzfs^xLti'^ito t£Ktu 

'%-miit(r)i^^(Dm^mizy±s 
(Ti^^^-titix^^^zinzmrs^ 



©© ©Z^!9;^(Z)Jl;^l5:a-?Sig^ 



X 




X 

2 

X 

3 

X 

4 


Mmm 



110 220 330 440 550 660 770 880 990 1100 1210 

tJJ-7 02 03 04 04 05 05 05 05 05 06 OS 

^^^ AA E AC# EGA BC#D# 



iOcfc<1£5i]-K©gm 






mati-i 



7 



maj7 



Jl'-|~;()<Cmi:#c7>«|^^ 



mimcD-^PLl^ 






6 



-5 



Sus4 



+ 5 






-^ v-f— 



CEG Bi 



CEGB 



v-f:f-(m) 



CEb GBb 



CEb G 



5l^ay^^±. 



5)t§-4^^J:(f^ 



4Jt^f^ 



5S5rif^^_h[f-5 



dim 



CEGA 



CEGt Bb 



CFG Bb 



CEG# B 



CEb GA 



CEb Gb B 



'J:L 



CEb G# B G 



^U-hA>ibSa3^ 



'j.-L 



CEb Gb A 



-5. SUS4.+ 5, dmtm?^-izyy7.{-(Doi\tzm)^mz^o+5\t 



^t<7)4^tz#^t-s;^;^^(z^x 




¥t^<?> 



06 06 06 06 06 
E F# G G# A 



no 220 329 440 554 659 783 880 990 1108 1244 1318 1480 1568 1661 1760 



^jjtr^Z t *<T-^ ^Zt {z^-'S 

u ttz. =mmti^^<Ty~mx-$} 

^i:hm^=b:bi1X'r. 

mttiXji P r-'^-^Wi-otzm^ 
Alt. ■rT•(zi^^[z^?^iLT^,^ 

tz^{=mm^m[:x. ^nx-r- 

/J V n 7^-r —(nmsbfztt^ t ft 
^JJf^iH-u^nsil^^cTJA (7h^5' 
-y 4 ) ?:4^'L'(Z%x. T 'AC#EG' 

m^&utzMTt. a*^^a:)5^ 
pgT-T# izmm-mt^mztz < 

*A7''(B?rAn-5tAT«)(7)=l-K 

(zfeJ^jr-^Ti^-StT^T-r^ 
^#(75ilu{z J: ^ tK7)^d;(75T--ro 

^^t m :^ ^ ^ -7> t-C7> J: -) 



100 



teli L T fc IrI l;^»l-'^j:&<75T'l^ 



■5 ^ p T-v - i; . jii;^^<?5ii$a-r 
^Wg(75lRieLT:uS<7)*^*t: 

?T. MSX-MUSIC(-ti22«^ 
h L$£li«^J:L^fiT'$)n{f^ TEM- 




5C0=l>xXh 



^^inf^sacn) 






"MD "©©t"CR- "om 

MusicArisssicES^n'^u 



f^(By©'3^fco®gBf!C^rliS 

BASIC, MuSICA, MtDL 

z>Ztti\ MuSICA^^Sbr 

iciz-:?L/riior*r<esLv 

[yzmmmbmm^mu±\-fmrc 

/jfe. ttm, K«. ^m. m.m 

m^. ?r6lcffi€^j:ct'^^L^fcit 
oCUZ<tz-&lSo 

=107-24 

;!,ij-i:?msujtrju 

CC.50D>xXK 



(§©®3^^3^^afi''^S 




-» 



g^CDK 3^01. 4»®1 OH 

IKi. ^HgJ^JZldiiC, tzhfihOZ. 
^D'B.<D^^Um&\zn.^Z<^(Oti<> 



f * 



+ 



TECH MuSICA 



T-^:z.f)il.2p.—Vh 



^-^^t^ \] X-tt)\ MuSICA'ef$;l 

h ii MSXt^i- X :? iiffi 2 ^ -§-(75 
■"SEA SARDINEjCT^xV-r-f >^" 

^ ^mf^fj:^^xr, 
^%irso^\ ^-^-x-i^mui. 

SPECIAL LDMS^Ti-^J-rc ^(^ 

h Li-=^xt^\=^^m^rt ^+ 

f^^izmtLXi^Btt. ^::t- 



FM#i!|81#C)#fe 



•b - Ku^ij^f^mz-r^tix L s T 



: WusjC Workshop Uo. 4 
: MuEica Techniout 



Voi 



Ltl 





MD' 


CR 


\- — -?)Ul^-<}l' 


14 




-7-i—^'<"j0 


b 




:L>^n--f^<-f 








■^Jl^'^Zfjl'l^^ll' 


01 


04 


T^v^ 


15 


11 


r<^< 


03 


00 


■y-;^x-f > 


06 


15 


U 'J -7^ 


03 


00 


\~\^< V7.^—)\' 








:^_L,^;L-;^>r— JL, 








hU^P 


off 


off 


t'7'^— h 


off 


off 


t'-i' ::^ I- — > a > 


on 


off 



B* Y.KlTAGftMI 1S91 [0 * 
FMl =Fie,Fll/! 
fW ^F2«, Fll/! 
FU3 - 
FM4 ^ 
FMS - 
R16 = 
FW -- 
FM7 = 
FUB = 
FM9 = 
F'SG1 = 
PSG!= 

psa3= 

sec 1 = - i " «- « 

sec 2= ''■■M^. 

SCC3= s ^^S 

SOCJ^ * '"^ 

KC5= 

FI0=1l5ilLI6OB 

FM=TI51tL1606 Z3() 

I ;»:,» 

Fn=V?3«81 

[>-a08EB<M. (G!GS, BKtGDGIPB) 
>vii G-8 V\3 GBA8 D4. C2 

EBQS5-BEBOBD-3-:AflBB»0-a«[ll. Cd 
>AaG-8GBt8D-6QBESi 
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:^u-Ji-}umn 



W- ' ' BY -NCO^c^i^t,' 
A'Sfl>;ftotic:*K--t©PSGiFMC[)yV5>7. 



^■ ') *■ A, y ■^ 



Update ■9a/7/5 



IB 
liil 
"JH ■ 
4« ■ 
5U ■ 
(jH 

7a ' 
H8 ■ 

9H ■ '-' ' 1 1-1 

100 -MUSlCfl.B.l, 1. 1. 1. 1. 1) 

H» CLEAR 2eBB:DEFSTR A-Z 

12*r -TRANSPOSE (0) 

130 -PITCH (442) 

140 -BGMd) 

15a SOUND 7.49:S0UWD 6.6 

200 TT='T15eLS 

:iia TR="T150Y54.0Y55, 16Y5&.a 

30a POKt aHKAI^C, 12:P0K.E, &HFA3C, 3b 

3ia PUKE 6HFA4C.a :POKE &HFA5C.24 

laaa A0-"f(14V15y4U5LSRSCEGEUQ8KltjLiltiKl6E 

U.U4>C'.GP(iG«SF24G24F24Q4EC 

1010 Al- ■K«i:EGKGysKl6Gl(jF16bl6Q4>C<B>CEC: 
<GFE 

i0J0 A2 = " RSFEC-f liCEFEFGKEEC 

18i0 A:i- ■kSFECFECEFEFGliy8G24B24G24Q4FE 

2000 M-' S14VllQ405L8R8.CEGFGQ8FlfaG10Flb 

ElGy4>L'^GFfaGQ8F24G24K24Q4b.y8C16 

20ia Bl = "«4ti8.CEGFG«8F16GlbFlfaElby4>ClB> 

GEC'vGFgaElb 

2020 B2="Q4R8. FECFECEFEFGF£FQ8Clb 

2830 B3-"Q4K8. FECFECEFEFGBQSG24B24G24Q4F 

Q8E16 

3000 C0="«14V7«4O5L8RCEGFGQSF16G16F16E16 

Q4>C<GFEGC!8F24G24F24y4E 

3010 C1-"CR8CEGFGQ8F16G16F16E16Q4>C<.B>CE 
C<GF 

3020 C2="ER8FECFECEFEFGFEF 

3030 C3="CR8FECFECEFEFGBQ8G24B24G-"-'4Q4F 

4000 D = 'C<FCF>'' :Da='8l6V9L8U7"tD + D + Di-b 

4010 Dl 'O+D+D+D 

500a E='GE£G" :E0 = " eibV9LbLi6Rlb" +E + E + E + E + 

"lb 

5010 El-'Rlb"+EfE+E+&t"16 

6000 F-"CS>CC-,- :F0-^"S31V13O5LlO'+F + f+FtF 

tFtF+F+P ■ 

6010 Kl-F+F+F+F+F+Ffp+F 

(.020 F-"vF8>FF' :K2 = F + F + F + F + FfF+F + F 

6030 F3=FfFfFi-F + FtF+F+"<G8>GG 

700fl K-"BHyhl6Hlbl!SM8HlbHlt." :R0=t:+R+K + " B 

H8SMl6SM16BSM8HlbH16" 

7030 R3-Rt-R+R+-BH3SMl6SM16BSM8SMlbSMl6'' 

8000 P = "M2aaCM2000C" :Pa="SL4"+PtP+PfM20 

acsM i00ac 1 6M 1 saac i 6M2000C 

8030 P3=''SL4"+-P+P+Pf"M200C8M1000C16M150a 
C16M20a0C8ClbC16 

10000 PLAY #2. TT. TT.TT.TT.TT.TT.tr TT 
10010 PLAY #2.A0. Ba.C0.D0,Ea,F0.R0.P0 
10020 PLAY #2.A1,B1.C1,D1.E1.F1.R0.P0 
10030 PLAY #2. A2.B2,C2.L)l.hl, F2, k0.P0 
10040 PLAY #2.A3.B3.C3.D1.E1.F3.R3.P3 
100^0 G0T6 10010 



^-AHzL-i>'>^g(JP^ 



MuSICAWJ^(^FM • SCO 



BY TADACHAN 



wm(DJ^x^3^<mmuzl^z. tk^qss 
xzu^^oh'^ms.tio mi\m^zm^m^rm 

mtm^lZy'-fXif'iiiZl\^(DZ, \-^o^--3 



FMl 

FM2 

FM3 

FM4 

FM5 

FM6 

FMR 

FM7 

FM8 

FM9 

PSG 

PSG2 

PSG3 

SCCl 

SCC2 

SCC3 

SCC4 

SCC5 



SUPER MARIO BROS. 

- ^^^1') BGM - 

[c) Nintendo 
Programmed by Tadachan 



=T. A, AX. Al. A2, A3 
=T, A, AY, Al, A2. A3 
=T. A, AZ. Al. A2. A3 
=T, 8, BX. Bl. B2. B3 
=T. B. BY, Bl, B2, B3 
=T, B. BZ, Bl. 82, B3 
=T, D. Dl. D2/26, D3 
= ;T. A. AS, Al. A2. A3 
= ;T, A. Be, 81, B2. B3 

=T. C. C1.C2. C3 



^T, AS, AX. Al, A2, A3 
^T. AS, AY, Al. A2, A3 
^T, AS. AZ. Al. A2. A3 
■:T. AS. AS, Al. A2. A3 



T=T185 

A63604L4 

AS^i404L4 

AX=04V13 

AY=Q6V1 1Z20R16 

AZ=Q7V9Z40R8 

Ae=O8V8Z60R8. 

Al =DEF+GAA+B8B8BBB2G 

A2=L2>E. D+. E. L8R<GAB>CDE2, D+2F4EI R4<G4L2 

>D. C+. D. L8R<GAB>CC+D2. <G2>F4E1 R4<G4 
A3=>L2G. G. G. G4L8ARRGL2F. F. F. F4L8GRRFE2. L 

4<AB>FL8EEERR<B> [C2) C 

B=S4804L4 

BX=04V12 

BY=Q6V!1Z20R16 

BZ=Q7V9Z40R8 

Bg=Q8V8Z60R8. 

Bl =DC+C<B>CC+D8D8DEF2. 

B2=L2G. F+. G. R. G. F+A4G1RF. E. F. R. F. <B>A4G1 

R 
B3=E. D. C+, R. D. C+. C. R. C. L4FGBL8BBBRRF (E2) 

E 



C=@l 102L4Q5V1 I 

C1=R1R1GG2. 

C2=GG>C«B>GBCG>C<EG>C<CG>C«B>GBCG>C<EG 

>C<DGBC+F+A-tDG8<8>GBDGB<B>GS0G>C«G>G> 


C3=<CG>E«B>G>D«A+>G>C+<C+G>E<DA>F<C+A> 

F<CA>F«B>G>F<CG>e«G>GGL8GGGRR<AG2. 

D^VCISVHI 1 
D1=R1R1R1 
D2=H4H4C4 
D3=HSH8H8R4C8C2. 



§©7^-5' 



<FM VOICE No. 36> 

MD 37-7- 1- 2- 6- 4- 1- 

CR 1- 1- 4- 3- 2- 

<PSG VOICE No. 1 1> 

27- 13- 12- 9-on -off-S 

<SCC VOICE No. 4> 

32- 22- 9- 7 

0- 19-31-47-5A-SA-75-7D 
7F-7D-75-6A-5A-47-31- 19 

0-E7-CF-B9-A6-96-8B-83 
80- 83' 8B-96-A6-B9-C7-E7 



■off- on 
■off- on 



■off 
■off 



-A'JV-i-)\^m^ 



MuSICA)t^fE(^FM) 




FIGHTING STORY 

BY *>A^<^ 

tmimj^j<s>\.%-\mmm}mz^^^jv-i- 
jm^ z0m\yi9\-\z%it<t^h!^mijz<tiftAj 

f£t^^. <ifn=BPSG«iS»fitllC, i:l\'^ti'-mmiZ 

TSe i^n^m^Dmt>^iz<iiif-^^m\^zi\ 



THEME "FIGHTING STORY' 
1990 1 1/7 By *U?V 



FMl =T0, A0, HI, H2, HI, H2. H1. H2, HI, H3 
H4/2, H4/2, H5. H6/2. H6/2. H? 

FM2 ^T0, 80, HI. H2. HI, H2, HI, H2, HI. H3 
H4/2, H4/2. H5, H6/2, H6/2, Bl 

FM3 =70. 00. C 1 /8, C2/4, C3, 04, C3. C5. 06, 07 

FM4 =T0, D0. Cl/8, 02/4, C3, C4, 03, 05, 06, Dl 

FM5 ^T0, E0, E1/4. E2/4. H5. E3 

FM6 =T0, F0, II. 12, II, 12, II. 12. II, 13 
14/4, 15/4, 16/4, 15/4, 16/4 
15/4, 16/4. 15/4, 17/4 
18/2. 19/2. IA/2, IB/2. IC/2. ID- 

FMR ^T0, G0. GI/3, G2, Ql/3. G2 

Gl/3. G2, Gl/3, G2. Gl/15. G2 

Gl/15. G2, Gl. G2.G1, G2 

Gl. G2, Gl. G2, G2, G2. Gl/2. G2. G2 

FM7 = 
FM8 ^ 
FM9 ^ 

PSG1=T0. H0, H1.H2. HI, H2, H1.H2, H1,H3 
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H4/2, H4/2, H5, H6/2, H6/2, H7 
PSG2=T0. 10. II. 12, II, 12, 11, 12, II. 13 
U/4. 15/4. 16/4. 15/4, 16/4 
15/4. 16/4, 15/4, 17/4 
18/2, 19/2, IA/2. IB/2. IC/2, ID 
PSG3=T6), J0, J I /3. J2. J I /3. J2 

J1/3. 02. Jl/3. J2. J1/15. J2 

Jl/15. J2. Jl. J2. J1. J2 

Jl. J2. Jl. J2. Jl, J2, Jl/2. J2. J2 

SCC1 = 
sec 2= 
sec 3^ 
SCC4- 
SCC5= 



TEMPO 
T0^T156 

MELODY (FM l) 
A0=O5H2V 146630851 

MELODY' (FM 2) 

I0=O5L12V1 I §630851 R24. Z50 
B1=B-2B->D-FB-FD- 

E-A->C<E-A->C<E-A->C<E-A->C< 
E-C<A->C<A-E-A-E-CE-C 

CORD (FM 3) 

C0=O3L1V13e6Q8 

Ot=(B-) 

C2=B->0-4F4A-4G4< 

C3=>E-F 

C4^A-G-< 

C5=A->C< 

C6=B-AA-GG- (E-) 

C7=E- 

CORD' (FM 4) 

t0=O3LIVl0@6O8R12. Z50 
D1=E-2. 

MELODY 2 (FM 5) 

E0^O6L2V12@5O8S1 

E1=A-GG-F 

E2=L 1 2 (F4) FE-F (G-4) G-FG- 

(A-4)A-G-A-F4E-4< 
E3-L1»RRD-1D-1FE-1>E-1 

BASE (FM R) 

F0=O2L 12V 1463306 



MELODY (PSG 1) 

H0^O4L!2V12§5O8I10M4 

HI =D-A-D-A-D-A-D-GD-GD-G 

H2=D-G-D-G-D-G-FD-A-B->D--<B- 

H3^D-G-D-G-D-G->D-<B-A-FD-<B-> 

H4= (D-4) D-CD- (E-4) E-D-E" 

[F4)FE-FA-4G4> 
H5=<A- 1 G-FE-FE-D-E-D-CD-C<B-> 

C1<B->0D-CD-E-D-E-FE-FG- 

A-2>e2D-4C4<B-4G-4 

A-2. A-4A1< 
H6^B-2B->D-FD-FB-< 
H7=B-2B->D-FB-FD- 

E-A->C<E-A->C<E-A->C<E-A->C< 

E-e<A->C<A-E-A-E-CE-C<A- 

BASE (PSG 2) 



I0=O2L12V12e2Q8I4M2 

It=B-B-B-B-B-B-B-B-B-B-B-B- 

I2=B-B-9-B-B-B->D-<B->D-FA"F< 

I3=B-B-B-B-B-B-FFF>FD-e< 
14=B-B-B-B-B-B->D'<8-8->F<B-B- 

B-B-B->B-<B-B->D->D-<D-E-D-C< 
I5^A->CE-< 
!6=G-B->D-< 
17=A>CE-< 
I8-B-B-B->F<B-B- 
I9=AAA>F<AA 
IA^A-A-A->F<A-A- 
IB-GGG>F<GG 
ie=G-G-G->F<G-G- 
ID=A->CE-<A->CE'<A->CE-<A->CE-< 

A- >CE - <A->CE -CE -C<A- > E-C 

;DRUM (FM R) 

G0^V15VS13VH1 1Y22, 68Y23. 75Y24, I 0( 

G1=HB12H12H12MS12H12H12 

G2=MS 1 2HB 1 2MS ] 2M5 1 2MS 1 2MS 1 2 

:DRUM {PSG 3) 

J0=O3L12V12 

ji-6ietc@i iec§i2cei ICC 
J2=S! 3C@i 0cei4cei 2ecc 

12V 12 

ji=ei0cei icc§i2cei lec 

J2=@l 3C61 0C81 dCSl 2CCC 



g-x— S' 



<FM VOICE No. 63> 
MO 0-3-0- 0- !5- 1- 15- 
CR 0- I-12- 0- 0- 
<PSG VOICE No. 5> 
32- 25- 14- 12-on -off- 16 
<PSG VOICE No. 2> 
32- 8- 8-32-on ■off-22 
<PSG VOICE No. 10> 
32- 20- 0- 0- off -on 
<P5G VOICE No. 1 1> 
32.20- 0- 0-off*on 
<PSG VOICE No. 12> 
32. 10- 0- 0-off -on 
<PSG VOICE No. 13> 
28- 12- 0- 0-off -on 
<PSG VOICE No. U> 
32- 12- 0- 0'off -on 



■TTUi/ifJUSBP! 



l-0-off-off-off 
1 ■ 1 -off •on -on 



25 



20 




Lay-about 

BY ±#^M 



10 _MUSIC(1. 0. 1, 1. 1. 1. 1, 1) :CLEAR500 

20 PLAY»2. "V15O5e04", ■"V140382r, ■■V146210 

3". 'V1504e33\ "VtSOeeie", "06V15©16". "VIS 

6A1 5" 

30 DEFSTR 0. W. E. R. T, Y, U. I:10="T100" 

40 PLAY"S13M500": 1=I0+"L!6" 

50 PLAY#2, I. I. I. I, I. I. 10. I 

60 P0KE&HFA2C+16*!, 20 :P0KE&HFA2C+ 1 6*3. 20 

:P0KE&HFA2G+1B*5. 30 

70 PLAY#2, ■■Y22. 250Y23. 100Y24. 250" 



90 Q='E 
100 01^ 
1 10 02^ 
120 03^ 
130 04^ 
140 Q5= 
150 06= 
160 07- 
170 ■ — 
180 W= 
190 Wl= 
-<A-»' 
200 W2= 
-<B-»" 
210 W3= 
220 ■-- 
230 E= 
240 E1= 
->A-" 
250 E2= 



Parti 

-R16E-B-4. &B-8. 

A4. 8iG8. E-E-F" 

G2, " 

A-4. E-8. A-8. " 

G2. ■ 

F4. &F8. B-8. " 

>C4<GA-B->CDE-D<B-" 

>C<GE->C<GE->D<B-F>FD<B-" 

Part2-1 

C<C>C<C>C<C>C<C>C<C>C<C> " 

'<A-<A->A-<A->A-<A->A-<A->A-<A->A 

'<B-<B->B-<B->B-<8->B-<B->B-<B->B 

'G<G>G<G>G<G>A-<A->A-<B->B-<B->" 

Part2-2 

C>C<C>C<C>C<C>C<C>C<C>C<" 
<A->A-<A->A-<A->A-<A->A-<A->A-<A 



■<B->B-<B->B-<B->B-<B->B-<B->B-<E 



260 E3="<G>G<G>G<G>G<A->A-<A->B-<B->B- 

270 ■ Part3-1 

280 R="CFG>C<GFCFG>C<GF'' 

290 R1='E-A-B->E-<B-A-E-A-B->E-<B-A-" 

300 R2="E-A-B->E-<B-A-E-A-B->E-A-B-" 

310 R3="C<GFC<GFCFG>CFG" 

320 R4="C<GE->C<GE->D<B-F>FD<B-" 

330 ' Part3-2 (echo) 

340 T^"R32"+R+"32';Tl="R32"+Rl+"32" 
350 T2 = ''R32"-i-R2 + ''32":T3="R32" + R3-)-"32>" 
360 T4="R32"+R4+"32":R3=R3+">" 

370 ■ Rhythm 

380 Y^ "HB n 6C1 68 ! H 1 6SHMB M 6C1 6B ! H 1 6" 
390 Y1="S!H!MIB!G!16SHCBI16SHCB116SIHIMI 
BICISHC16I16SHCIB! 16":Y1^Y+Y1 :Y=Y+Y 

400 ■ Parti (PSG) 

410 U=''E-R16E-B-8. S0M20000B-8. " 

420 U1="S13M500A8. S0M20000A8. SI 3M500GS. E 

-E-F" 

430 U2="SI3M500G2. " 

440 U3-"S0M20000G2. S13M500" 

450 U4=''S13M500A-8. S0M20000A-8. S13M500E- 

8, A-8. " 

460 U5^"S13M500G4. S0M20000G4. " 

470 U6="S13M500F8. S0M20000F4. S13M500B-8. 

480 U7="513M500>C4<GA-B->CDE-D<B-" 

490 U8='S13M500>C<GE->C<GE->O<B-F>FD<B-" 

500 PLAY#2. 0, E, E. W, R. T. Y. U 

510 PLAY#2. 01. E. E.W.R.T, Y.Ul 

520 PLAY«2. 02. E. E. W. R. T. Y, U2 

530 PLAY«2. 02, E. E. W. R. T. Y. U3 

540 PLAY«2. 0. El. El, Wl. Rl. Tl. Y, U 

550 PLAY«2. 03. El . El . Wl . R 1 , Tl , Y, U4 

560 PLAY#2. 04. E2. E2. W2, Rl. Tl, Y, U5 

570 PLAY#2. 05, E2. E2. W2, R2, T2. Y, U6 

580 PLAY#2, 06, E. E, W. R3, T3. Y. U7 

590 PLAY#2, 06. E1, El, Wl. R3. T3, Y. U7 

600 PLAY»2. 06. E2, E2. W2, R3. T3, Y. U7 

610 PLAY#2. 07, E3, E3, W3. R4. T4, Y1. U8 

620 GOTO 500 



t-(^^ l-/*n#J!; 
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i\\l< 



V y y X > V? 



NET WORK 




S i- ;^ ;f -< t ^M t coSBH^SS < . 







lziS?:j^L#nT[iL^''d:i^^ti tz 

■9— t';^/:f„ 
ifz. tniii9^±tz':itzV— 

(T^ti^h. yn-t-'izmBi^A.fz']^ 



■y— f;^ ^j: i:' ?:^''x ^ x u § ^-y 
ntzebizii., A^^t^^i^co 

L /-c^re^wft $ izB u T WHi ^ n 

i6 g-5^ g filJtZ-a-^ /■-■If^$r¥(z 

A,t^(-Tii'^LTfcl^/z(5-5;b^i-^ 
LVi6?„ zn^^h. ±fzr)fz^ 






7'X+-;}'x»;/hMSX 



MSXa—t^-"©fc»®:^^»>S<i:l^x(S=IZI 



#COg&t(Z-^;b#TACS, PCa 
DPI. MSX{7) 4IKic;)^'-.-y f- 7—:? 

■y ^MSXtZOUTUtH^T'S^; 



[Z. Mv;^-^^gpc?)Z]-:t— fcfe 



>::i~i—h^mLX 



Wr>T<7-^7.ifs^>V^ZT-:^^^ 

^Jfh^<n-tz^ 

T107-24 ^s«5^Emiraj6-ti-i 

y';^ + -*y h»MJ9 
003-3486-9661 
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NIFTY-Serve 



fijfflS*<2(D. mm^^Biy^'ui^rj-o 






Tio2 m^gg^fftfflEaBTi-iD 

a03-3221-7363 



PC-VAN 






TL^-&^^-y h7-^„ r^-b:^'-j< 



T 108-01 3emg^E25-7-l 

PC-VAN»S5^ 
003-3454-6909 



THE LINKS 



fci'ya7'Jbfco'3?0(DMSXIIP^1^*;/h 



U^\ ^m0^i%.^^^X^^-tziz 

(r>\Ditr^xMmLtztzif^. tt 



^S^10Q^(7>:^(-Wffl^xA^ 
-f^^>VLX<i!X^tlfz.. 

TB04 sSBm4'RS^?iiifflSte±^i' 
-^^RjOT-^v a ■^;i- t'JU3F 

S0120-251-063 

:^M(i2O0^ffjac L ct ? A^4\ 

tm-r>X\.^^o 1 m^fcX. IDtTJtt 

^7.t~ Ki:cn^fe-a-i^fe35^t?3 

x\ $>Asui^mc±i^-r:bct 

^cft^Jfc'o ^-y l^7-:*]-^;]'i>#?r 
^)±J.iX^fzUz\1t\ rt^tSiT 

Mi 




(7)m-yh:*:iS:fr! 



, ? P -y ^ 5r ^«<t L fcgic^tMSX -^^^ ..] wmm^ 

i:*U v:^Jt'i?)'1-^;^h7°□:?'^A m^f^ qo425-7i-i369 

c(mm-^t>itx\ t£iy^tit^mi- *J^ 7ZZZ'}!!^ 

jifgiSSE 300/1 2a0/2400bps 

•ETfiot 

cnifc'-^;^^7'p^7A(i:^'> ^^tg s^«Em*taj-f5 

t;:^JUC0fo(7)T\ ?i:*34-'^Jl'^*S t§m*^ 00423-97-0143 

m^h^. ^^^A^^^^r-y ^^.^ 300/12D0bps 

y'xx^-t^^tt''X^^miz. .^ .>;(^^ isKttt* 

•T-COM 

temT^^nTUS^.y h„ ^^j^ «SRiiiifqHJ 

;^WHfi'>:^7=Ailt4;9fc*^'9tf« @*s»^ oo4fl-e3i-fl35fl 

>b7^-fe:^'r-&.i Oi-ta,. .>;(.^^ T-KUN 

•TOKORO-NET 

itmntn^nx^mB^nxK^^ ^^^ „ a^m^^ 

>U^-'y YiU ^SfflJC^ (as** 00152-54-3379 

.^fefi^fefeStT^f- • ->;^;J-K iifg^fQ 






■\^6^^(=il^Et3cr)d:^r-ro ^(Dtt. 



icoLAr© 



feiS^L/^^o SIES0D^5AI3:©-?'SCerBJ:3ft:t\ftic 



^-y h9-:?1$^fiC0v>:^'*^4S 



=lb^! 




► ^1 



^il 




»v^ 





::ni:i5iUJ:T(z.'zi>fcfi- 

•y [^ • PC-VANUWftXj'^CATfg 

^cfAT,^ o Ti ^fc ^ U ^ ''j: L ^;S^4-o 



IIS4I1] =l>t:zL--S7^H7-f jux 




mLX^sm-otz^\m^^:l'Ol.i 
^ztiztj::hibi.iX\ h<r>tz'- 

(3. X68000c7)'t?'rJU7.t7>f^[3;g 
■^fzt^^^SAL-htzti^i)M<7^'J> 

tzi3^f£7 \.^\,^'Pm^}^j:i't) 

-zKDvyhff^p^mz^n^iii^^ 
tzt.ix\ ^±c;>v7 i^c/5ii-K^ 

y \~(r)!^^y<-':^a>X-U^^i:m 

mt^^i-fz^nh 

znizMLX'J—Mi. s-^g 

#fz (tT-±^-r S^fctyp ^7 A 
Mzl,thtt^intzz\»^a.—^ — 



nfzh(r>t£KfzXt^ 

fzf:i. zn\zm^x[t. ^±^ 

:km^±m^^tz^tzo 

S|5(ZK[-D fz(r)fit^ < :b75^-^ T l ^ 
^£^^mz\^^fzi.1 1\ tz.i'^A.h Ji -o 



^t:fio'(t/-z7-A^, -r^:?- 

lira^**^^^cW=S''d:ii?f^^-y 
KALPAnet "^f C^'-y 1^9- 

^LT. yP:?''-7ACOf^:6<i3 
ir^tfg^li-fLXl^^mz, n 

-ut%Kcn=^%^n.kxmku 

17 Kz-of£t'-^'k^t^mm<n^> 
t°iL - 5- — ;!) Vz ^ S *,(75 9 ii (z>f 

ZCT^'^-Ati. UNIXtCF^LT 

\.^izf^'y^%m\^xmmtrx' 




■i^-x\-lif.u^Si 




AI«]|g-^A.<5<SS 



-<7)4'^-(i^ -(Ti'^m.z^titix 

"l-l^lzWm^^XXLi^fzA. 
A<r>^^:^[zW)^r>\,^tz^'y h(i. 

*^L. l^<ib4-^T-fc. 7-A;!?^' 

— ^-5 -r If- K^4'^*=i'v>i: L^ 
t L^-i^o i3tc'7-A(;5±^^m 

H(75^m 9 ^(Z(J -•< fffi*(C7- 
A(7)ftX^PliL-r?>¥S;bT?F^$ 

nx^^-y \-x-<^m^nxy.^^„ 

z<n.).4zr)l,zMLX. Pi^-y^ 
'om'^^iMJbtmmtzo 

mnzm^^^afy^'^X'P^o o 
< JUXtT^^'CliD t^ -y ^/-fCAAHt 

Biffii^c;)^ p ^^ A t (i»;*^ 




(CT-T < ^ h Pl'it^<?>3t^^'b 

^Ti^^o .fcor-stz. is^fT^ 
s^msi^ s p -f J' ^^fiB&r 5 fc 

fed. F*ggPlZ:£±?r;^S-1i:fcS:*^ 
c7)F*9Slit= * lb ^^ U fe-fi^t t Ac;? L ^ 

s-a-Tfc<-7Tt£7?/i; 

?o^<757-A«UNIX->::^T- 
A(;5y\'^^I5S^-[C-^oX, -f&fT^zi 

>t:°a.-?-lzg-^^1^A?-a-=] 

i-rhntzh(Dfzr>tzh. ^(.^OtS 

hP-r-T^^K-^n^-^o s*c75iiT- 

yA\^mxi^t:>tifz(D[i. 0^)i^ 
7.(r>Xii.zm$.ti^n'>fzh<r>X' 

(S4-<, Z(D\'U^(r):^mitr>tz 
Lfz^U. 
zaymWX'it. J:-5-r^iz>- 

t- p'TiT^^^^^fSi-tt'btiTl^/to 
^(T^yp^'^Atiil^LTfot: U 

K.\ t:LXZtiU\.^^fz\.^Wz'^ 



ni:y^-^m^m^XL$.^X 
i^tzA^fz^Uo 

-(/)i: #A:^J■r^^^°x7- K^/K 
(r>7f.~ Ku#^iA^T•LS Oo 

VL^. imr^^tixu. -^s, 

[z*^At^T^^^c■t,{zSl^TJi 
iS®i^(z;^|^<±SKtTi^U -^It 

^m^o^o ^s^a'ffMtmcfzo 

^JiT^yp :?'v A^rl^L^-LvJ: 
1 (z L Tf^tttmSl-* 9 'LjetJ 

Tt. ^tlti(^i:^ir^f^Bgtz£ 



:^;uc7>fp#<75t;-i:(;i:?tu ^zl 

yv>*\ ■=ecOS«iir;^T\ lit 

^i:'^M■rsc i:<75=f^tl4- h p 
^(n:^m(7^im'^i-:^^mhtHzL 
X\.^^f3^htz. 4-(zL^. ccT?:^ 
>£4-'b. -^ V-^^tf^tZhP-f 

-r;uL/=fo(75(ztJ:^^*^-t-jns 
J: 1 izj^^ z ti3<X'^ ^(Dtziz 
c7)^^J:^{zoL^-^i. -^[i](ZiE>L 

Au-wij^LXffffl-rs- t*^T- 

B^si-^tmmLX^^^o M&(r>y 

yVO:LTfzhlti\ Til>^^ 
fihit\ ^-yytT^v-f^DP- 

li. Z{7)d:T4-7K^^-f±SKt^ci; 
-5 4^Af^tz5^+tT(J. MP^lST 

m^HZ. tmt-Sl^fzhio V 

hh^}i^O^}\^y^t'-M.^X. m 

muu^^n-^xy.^^. ojij. 

T\ 3EA(73#:tA^L^-n^;!)^'b^ 




HP ^iJ ^^ 



BASICUA/fc-7U* 



>- 



yj. 



w% 



y€?- 



fir 



;f 



yn^'^A^mtLfz(nX'{t. m 

ti^xi\ ^zx\ wmx'hi^^fz 

Xli~. tzt>l^<7>fj:i^^^tzthZ^ 
a^^A^jt^T^tz. 

BASic-f >:S'~yj ^—<ny 'J ^ 

-r-Syc^'^A/zo BASICO:? 
— yij^ — tl^iOtJ. WOST' 

t) ^j: < . BASICC7) zi V > K ^mn 

LTI^-r^yn :?'7 A(;>c to 
/i?^ fc *. A^^ fc BASlOT^y p :?• 
^AA-**,s=Ai:Sfi<c7)(i, -(7)-i- 
>■$>—:/') ^-cr>tsmfy£<r)tz^ 

t < [cMsxoit^ti. mmmx 
■tL^BASic-r >:$'-yij$'-*^ 

-Cfc^v BASIC-f>5'-yU:S'- 
<757 'J ^-r 5 BASIC^P ^'7 A t 

yp^^A^na^-r^i:. 



(C*=i y MSX /N y V h V 

t77ot(-S^<= +ifeBASIC?:^ 
7^fzX(nzhs /fV=l>V3-yy 

tZX-^^Ztt^.^'^tzhs fCTRQ 

□ ^7A^ihsi^::i;/t'*^' -o 

X']-sMLXiti, 

BASICT-Z^4•-i:A^T'^TL 
S^Oti, MSX-BASIC(-(i. ON 

STOP GOSUBi: t^T 5t:^''j:=i -ev 

[t. mm^-f3m^tifzt^i.zm 
'JiA^A^^^L. ^g:s?nf-fflz 
->i'>ytiia''r^^B^o loio^f 
xz.(Dm:^^-^t£^xi^^^ 

rt [z 'J v-:>5c^AnTfe-5c7) 










> f Xi 1 08OfT A^ "b C7> =i T > 
n0O--1110^(J. LINEINPUT? 

tifz-S!^^\\<7m(r>^^^m^fm 

^^IS^-ttTL t T - ttS-h^# 

A.Xhtl-^fi[-tn{ti-£ht£K.\ 

i6fflBLTi)-5PV> KtcT^itK 
1190-1210^T\ C^^UCA 



hti,t. ^ti^'nc75Pv>K(i 

tifzi3'(T>i izMJtX^^^tzntz, 
^ b A^ L;«^ffl:t$ nxi^-s zi V 

X^^<r>hi^i^t)'h^ T-fo. S)< 




mmmm 

PN i^S, ytU-±i::^SUrL>§<J;aizmti:z:o\S7D^^A0S^„ 

: j>!^u-±(c7?n^"5AA'm\ 

1 : HAHAHA. BAS 

2 : HEHEHE. BAS 

CMS( ) ^stmru^awKrox-^JL/^^Oo 

CM$(1)="LIST". CMS(E)="RUN" = 

CD Atits:ntz^-?^fi^m^zmB>nrc^^yi^oM^. 

Siltsnro/^L^=lvy^^A^Aasnfc:^S(s, cd-d 

F yDyy[^''OK"^m^^r^t-e3A'^^'mt-^y^-^^ A^^snts: 

FS STOP^-ffntstl^t. FS = 1 t^ctSo 

CRS S:¥5iJ7tHSmX'^-X^gHD,/JvS?:^:*;3f?C^mL.7ai?^A-C'0i 



Axmm-^k*i<.^ 



BASICL^^fc-^'J* LIST 



(10) 



1080 
1090 
1100 
1110 
1120 
1130 



THEN 1140 



THEN CA$=CHR$ 



1000 ' *** yi^h *** 

1010 CLEAR 1000:OEF1NT A-Z:DIM CM$ 

1020 ON STOP GOSUB 2220: STOP ON 

1030 GOSUB 1280 

1040 KEY ON: COLOR 1 5. 4. 7 

1050 GOSUB 2080 

1060 PN=1 :F=0 

1070 PRINT"Ok" 

LINE INPUT A$ 

• *** l7-j[' *^fe* •** 
IF A$="" THEN 1080 
FOR 1 = 1 TO LEN(A$) 
IF MID$ (A$. I. 1)<>" 
NEXT 

1140 A$=MID$(A$. I) :CR$ = "" 

1150 FOR 1 = 1 TO LEN(A$) 

1160 CA$=MID$(A$. I. 1) 

1170 IF CAS >= "a" AND CA$ <= 

ASC (CA$) -32) 

1180 CR$=CR$+CA$:NEXT 

1190 CD=0 

1200 FOR I=t TO 10 

1210 IF LEFT$(CR$. LEN(CM$(I)))=CM$(I) THEN CD=I 

1220 NEXT 

1230 F=0 

1240 ■ *•* :7y[-' •>' yiO *** 

1250 ON CD+1 GOSUB 1340. 1440. 1420. 1560. 1590. 1380 

. 1400. 1670. 1840. 1970. 1990 

1260 IF F=0 THEN 1070 ELSE 1080 

1270 ' *** 37Vh' f'ft' *** 

1280 RESTORE 1310 

1290 FOR 1 = 1 TO 10:READ CM$ (I) :NEXT 

RETURN 

DATA "LIST". "RUN". "FILES". "LOAD" 

DATA "CLS". "SCREEN". ".FORMAT". "_SYSTEM" 

DATA "NEW". "EXIT" 

IF CR$>="0" AND CR$<="9' 

' *«* 17- yj'J *** 

BEEP:PRINT"Syntax error" : RETURN 

• *** CLS *** 
CLS: RETURN 

• *** SCREEN «** 
SCREEN 1 : RETURN 

■ *** RUN «*« 

ON PN GOSUB 2080, 21 501 RETURN 

LIST *** 

GOSUB 1450. 1500: RETURN 



1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 



THEN F=l: RETURN 



*** 

ON PN 

PRINT '10 
1460 PRINT "20 
:CHR$ (34) 
1470 PRINT "30 
1480 PRINT "40 
4) ;": :GOTO 30" 
1490 RETURN 
1500 PRINT "10 
1510 PRINT "20 
0'D')";CHR$(34) 
1520 PRINT "30 FOR I=( 
1530 PRINT '40 PRINT 
4) ;": :GOTO 30" 
1540 RETURN 
1550 ■ «** FILES *** 
1560 PRINT "HAHAHA 
1570 RETURN 
1580 ■ *•* LOAD *** 
1590 S=INSTR(CR$.CHR$ (34)) 



SCREEN r 

PRINT ":CHR$ (34) :"3y MSX A Jy^ji" 

FOR 1=0 TO 1000:NEXT" 

PRINT ":CHR$ (34) ;"A7A9A, ";CHR$(3 



SCREEN r 

PRINT ■;CHR$(34) :"t7i lA fzl f ^i 



TO 1000:NEXT" 
;CHR$(34) :"^?^»^7 ":CHR$(3 



BAS HEHEHE . BAS" 



1600 IF S=0 THEN BEEP:PRINT"Missing operand':RET 

URN 

1610 IF INSTR(CR$. '. BAS")=0 THEN 1650 

1620 F$=MIO$(CR$. S+1. 6) 

1630 IF F$="HAHAHA" THEN PN=1:RETURN 

1640 IF F$="HEHEHE" THEN PN=2:RETURN 

1650 BEEP;PRINT "Bad file name":RETURN 

1660 ' *** FORMAT *** 

1670 PRINT"Drive name? (A, B) " ; 

1680 I$=INPUT$ (1) :PRINT 1$ 

THEN I$=CHRS(ASC(I$)-32) 
AND I$<>"B" THEN 1670 



1 side, double track' 

2 sides, double track' 



1690 IF I$> Z 
1700 IF I$<>"A' 
1710 PRINT 
1720 PRINT"! - 
1730 PRINT"2 - 
1740 PRINT 
1750 PRINT"?": 
1760 I$=INPUT$(]) 

1770 IF I$<>"r AND U<>"2" THEN 1760 
1780 PRINT 1$ 

1790 PRINT"Strike a key when ready" 
1800 I$ = INPUT$(1) 
1810 FOR 1=0 TO 500:NEXT 
1820 BEEP:PRlNT"Bad fat":RETURN 
1830 ■ *** SYSTEM *♦* 
1840 FOR 1=0 TO 500: NEXT 
1850 KEY OFF:PN=0 
1860 CCJ="":PRINT "A>"; 
1870 A$ = INPUT$(I) 
1880 IF A$=CHR$(13) THEN 1910 
1890 IF A$<'' " THEN 1870 
1900 PRINT A$: :CC$=CC$+A$:GOTO 1870 
1910 IF CC$="BASIC" OR CC$="basic" THEN KEY ON:S 
CREEN 1 :RETURN 

1920 IF LEFTJ(CC$. 3)="DIR" OR LEFT$ (CC$. 3) ="dir" 
THEN GOSUB 2010:GOTO 1860 
1930 IF CC$="" THEN PRINT:GOTO 1860 
1940 PRINTiPRlNT'Bad command or file name" 
1950 GOTO 1850 
I960 ' ««* NEW *** 
1970 PN=0: RETURN 
1980 ' **• EXIT *** 
1990 PRINT"Real end' 
2000 ' *** DIR «*• 
2010 PRINT 
2020 PRINT 
2030 PRINT 
2040 PRINT 
2050 PRINT 
2060 RETURN 

2070 ' **• Tl.BAS •>i<t.-h *** 
2080 SCREEN 1 :FS=0:PRINT "3^ MSX A- Jy}vi'' 
2090 FOR 1=0 TO 1000: NEXT 

2100 IF FS=0 THEN PRINT "AyA^A^ ";:GOTO 2090 
2110 PRINT:BEEP 
2120 PRINT"Break in 30' 
2130 RETURN 

2140 ' *** T2. BAS >i$[.-h »** 

2150 SCREEN 1:FS=0:PRINT "?7i ZA ^if J' +f ^ J* aO 
2160 FOR 1=0 TO 1000: NEXT 

2170 IF FS=0 THEN PRINT "^,^y^, ■;:GOTO 2160 
2180 PRINT:BEEP 
2190 PRINT'Break in 30" 
2200 RETURN 

2210 '«•« %^y7'^- 9'n5 *** 
2220 FS=1 :RETURN 



;END 



HAHAHA BAS 


145 90-11-24 


HEHEHE BAS 


131 90-11-23 


2 files' 





34522 byte free 



mm 



7CK?^>^yM>! 



mz=^u-ozo^-otc)^mmt^mm^.^mtj-BM^-vm.\zmti±t)^'D 




U-7T-fJKbLT, t'7=7t-RAM 






ListlUXS5^iO-^0® 

5 SCREEN 8 

10 RESTORE 20000 :AD=&H80jBr0 

20 FOR 1=0 TO 63 -.READ A$ 

30 FOR J=0 TO 63:VP0KE AD+J. ASC (MID$ {A$, 

J-M.D) :NEXT J 

40 AD=AD+64:NEXT I 

50 RESTORE 21000:AD=&H9000 

60 FOR 1=0 TO 63: READ A$ 

70 FOR J=0 TO 63:VP0KE AD+J, ASC (MIDS (A$, 

J+1,1)) :NEXT J 

80 AD=AD+64:NEXT I 

90 BSAVE"map. dat" . &H8000, &H8FFF, S 

100 BSAVE"map. obj" , &H9000, &H9FFF, S 

110 SCREEN 0:PRINT"Completed." 

120 END 



List2 U:^S^iO-^C!)< 

4 DEFINT A-Z:DIM MB$ (5) . MAS (63) . IN${12). 
IP(12). IE(12), IT(7).EU(35) 

7 OPEN"map.dat"FOR INPUT AS #1:A$=1NPUT$ 
(7, 1) :FOR 1=0 TO 63:MA$ (I ) =1NPUT$ (64. 1) : 
NEXT I : CLOSE 

8 ' fX 

6005 EN=VAL (" &H" +CHR$ (VPEEK (&H8FFFf Y*64+ 
X)))-1:1F EN<0 THEN RETURN 



Lists 'J7.h^iiJ-?:0(i) 

10 KEY OFF: COLOR 15.0,0 

15 SCREEN 5:BL0AD"map. obj" ,S:GOSUB 9000; 

WIDTH 30 



tiCJ:-7.'t.i^iST-MSX1T-ti!i 
i<r>itKi>^ )„ 

irT'RPGMAP.BAS^rH^r^^. 
MAP.DATt MAP.OBJa: \.^^ .vfcO 

RAM(7) & H9000#±-ai-:^^(;M < o 
i:C^^<SCREEN1.5T'(i. VPOKE 
^VPEEK^-r -5 ; ^ (JT'# T h. 
BSAVE.S-^BLOAD.St Uofc^ 
^lifS;l4-L\ SCREEN1.5(Z|t:t 

-t^m^-s SCREEN5^d:i:*^^^T 

-5;b(tfc'o t<niz^crmm.t\ 'J 
;^ f^ 3 (^SIS-j^o 

^i-fc. Z(7)i:#(Z, SCREENS^- 
'bL^L^(7^y-•(t^v SCREEN7^8T" 



^^aVQi'jiWk 



0) LOAD "RPGMAIN.BAS" 
© DELETE l-lff^6^ 
d) DELETE 3000J2f-32070 
® 'J X M ^{tflO/^M 
(E) SAVE "RPGMAP. BAS 
© LOAD "RPGMAIN.BAS 
® DELETE 2Mff-2163^ 
® 'J ^ h 2 ^j^Wn/^H 
% SAVE -RPGMAIN.BAS' 



Sfz. ij^ V 2c7)7^gT'(J. 
BSAVE^tlfcMAP.DAT^. ;^ |- 'J 

Tfe. s.tz<r)m^izmL<mmr 
§zt(z-rs^ 

^T—^ \t'^^f£ < 'j: -s h(nt£(n 

X\ RPGCHR.BAST'^^LTLi 

i. ^^^x''tL^■5lJV-^3ttZiS^ 

->X\ 2'frS^<^%''ff)y-^9- 
>o ^tlib^. Z^iMUX^TJk-t 
^cttz-rSo IitT^ *. T. ± 

:g-/\°:S'->c7>^^lZ[i, STICK 

mm<7)mi)m^mmt^zt:izr 

RPGMAIN.BAStZigip L T:tao 



i^KSi^S^ 



lili5(7)fci6c7>^fe?rfflSL^z„ # 

'^M^T<7^Ac75^ffit&\ W(7J < 
tl^^miU>P U^)\'T -J -ft X'(r> 



:?p^55>^(=P« 



List 4 >a^-([-^m 

9060 GOSUB 5j?lM 

9jff7j0r RESTORE 61flf^^:F0R J=0 TO 7: READ B$ 

9080 A$="":FOR 1=0 TO 7: A$=A$+CHR$ <VAL (' 

&H"+M!D$(B$. 1*21-1.2))) :NEXT I 

9090 SPRITES (J) =A$: NEXT J 

9100 RETURN 

61000 ■ xy ^-fh f -9 

61010 ' -yx 

61020 DATA 183C3C18003C5A00 

61030 DATA 00000066BD002466 

61040 ■ S^' 

61050 DATA 38102000002C1000 

61060 DATA 00081C183C106E66 

61070 ■ i^f 

61080 DATA 18240000003C5A00 

61090 DATA 00183C7EBD002466 

61100 ■ tr 'J 

61110 DATA 1C08040000340800 

61120 DATA 001038183C087666 



Lists >a^-(\^^m^s 



10 ' fx 

19 PUT SPRITE 0, (48.39). 1.4: PUT SPRITE 1 

. (48. 39). 11, 5 

.4010 A=STICK(0) :IF(A AND 1)=0 GOTO 4000 
14015 X=X+(A=7)-(A=3) :Y=Yf(A=l) - (A=5) 

4016 PUT SPRITE 0, (48, 39) . 1. A-1 :PUT SPRI 

TE 1, (48,39), 11. A 

5040 ' fX 

7030 PUT SPRITE 0, (0,208) 

7170 GOSUB 7900:GOSUB 10000:GOSUB 5000:P 

UT SPRITE 0, (48.39) , 1,4: PUT SPRITE 1, (48 

.39), 11, 5:G0T0 4000 



List 6 W\)bmmtMmiE 

1 CLEAR 7000 :CLS 

9 X=54:Y=8:WY-18:HP=10:HM=HP:ST=3:DF=3:D 
X=3:LV=1:EX-0:GP=0:GOSUB 3600 
2160 IF (EX>=EU(LV-1)) AND LV<27 GOTO 22 
00 

2240 A=INT(RND{1)*6)+2:M$="HP;J' " +STR$ (A) 
+ '7;^' 7?!" :HM=HM+A:G0SUB 3000:GOSUB 3100 
2250 A=INT(RND(l)*3)+l:M$="73^fA' " +STR$ (A 
)fr;J' 7?!" :ST=ST4-A:G0SUB 3000:GOSUB 3100 
2260 A=INT(RND(l)*3)i-l:M$="*' -^^ a'Ja?;*' " + 
STR$(A)-H"Tj$' f9\" :DF=DF+A:GOSUB 3000:GOSU 
B 3100 

2270 A=INT(RND(l)*3)+l:M$=";iA' tt;&' "-I-STRS 
(A)+"7*' ??!" :DX=DX+A:GOSUB 3000:GOSUB 31 
00 

2710 IF IM=0 THEN M$="7;ft'5 r-(fiA' TUV-fey" : 
GOSUB 3000:GOSUB 3400:RETURN 2010 
7320 S=INT(IP(IT(C-l))/2) :M$= INS ( IT (C-1) 
)+"A"+STR$(S)+"GOLDf X. " :GOSUB 3000 
.7370 GOSUB 3400:GOSUB 7900: IF COl GOTO 



7440 

7373 C=CC:GOSUB 4700:GP=GP+S:GOSUB 3600: 

m="7'iil' V<^ 3' r ^yy9. " :G0SUB 3000 

7409 GOSUB 7900:MS= ! NS ( IL (C-1) ) +"t ^V :G 

OSUB 3000:S=INT(IP(IT(CI-l))/2) :M$="t f^ 

'fTt^f^fl' " + INS(IT(Cl-l))i"?" :GOSUB 3000:M 

S=STR$(S)+"G0LDt ^t^V^)y^X, " :GOSUB 3000:M 

S-'M^f ^;5?"' :GOSUB 3000 

7411 IF C=l THEN GP=GP- IP { IL (CC-1) ) +S :DF 

-DF-IE(IT(C1-1) )flE(lL(CC-l)) ; IT(CI~1)=I 

L(CC-1);G0T0 7435 ELSE 7440 

7418 GOSUB 7900:M$=IN$(IL(C-1) )f"f ;i*" :G 

OSUB 3000:S=INT(lP(lT(CI-l))/2) :MS="f A 

^-Ziff^H' " + IN$(IT(CI"1>)+"?" :GOSUB 3000:M 

S=STRS(S)i"GOLDT it^V'}y^X. " :GOSUB 3000:M 

S-'M-ff X;^?" : GOSUB 3000 

7420 IF 0=1 THEN GP=GP- IP ( IL (CC-1) ) +S:ST 

=ST-IE(IT(CI-1))+IE(IL(CC-1)) :IT(CI-1)=I 

L(CC-l) :GOTO 7435 ELSE 7440 

30025 DATA Ibmihl, 10,5 

30030 DATA i^mthl , 50 . 10 

30035 DATA Xoff>thl.300,20 

30040 DATA lAi^OfOii^l. 2000. 50 

30045 DATA <' it, 20, 5 

30050 DATA /'}fyf'f1f ,100.10 

30055 DATA To©-?^, 500, 20 

30060 DATA m^nm^X, 3000,50 

30065 DATA t' -Ai/)\' -yf >}-, 0. 

30120 DATA X^)^~A, 

1. 1. 1. 

30130 DATA 3*' A^y , 

3. 3. 2. 

30140 DATA hn-il/, 

8. 8. 4. 

30150 DATA W iH*, 

13. 12. 7, 

30160 DATA ^ii\vr)ih\\ 

8. 14, 10. 

30170 DATA ■7>f4:i7. 

24. 20, 20. 

30180 DATA i/f^UX, 

30. 26, 30. 

30190 DATA ry^'^uX. 

40, 32, 50. 

30200 DATA h' 53' >, 

50. 40, 80. 

30210 DATA 7' 77?l3tfc'j. 

60, 50, 100. 

30220 DATA blk^W >?. 

60, 60. 10000, 

32010 DATA i(\fX}^y a-). 

00,53.8 

32020 DATA jHfTyh' -J^, 

0,9. 13 

32030 DATA fii' ?"». 

00.9,38 

32040 DATA ^fj^' t-f' , 

00,51.19 

32050 DATA ^^9' A' -^f*. 

0,58.21 

32060 DATA ^f7' ?n-h' . 

01,22.57 

32070 DATA f'J-ZV^, 

00, 10.52 



10. 


. 4^^B 


1 


JMH 


15. 


3. IHIH 


2 


9^H 


25, 


8, SSp 


4 


•i. 


30. 


13.'«»«^ 


8 


-^imm 


40. 


18. jjUBiBI 


15 


«■■■ 


50. 


24, ^"™^ 


30 




60. 


3-0^- i 


50 




70. 


40, 


80 




80. 


50. 


120 


« 


90, 


60. 


200 




200, 


60. 


10000 


2, 


1000100010 


5, 


10011100100 


10. 


1101010011 


20, 


1101011001 


50, 


11110010011 


100, 


0111000100 


0. 


0000000000 




111 



4 DEFINT A-Z:DIM MBS (5) , MAS (63) , INS (12). 

1P(12). !E{i2). IT(7).EU(35).MS${11) 

9 X=54 : Y-8 : WY- 18 : HP= 18 : HM=HP : ST=3 : DF=3 : D 

X=3:LV=1:EX=^;GP=0: lV=flf:GOSUB 36M 

18 RESTORE 33}S0IS:FOR l=g TO 11:READ MSS ( 

I) :NEXT I 

7135 LOCATE 1.6: PR I NT" i\fx" 

714Sf CY=^:CX=1:CA=3:CM=3 

716^ ON C GOTO 7170, 7200. 7500. 77M 

7320 S=INT(IP(IT(C-l))/2) 

7321 IF S=0 THEN M$=" yw\f gvl- t=^M/7-fcy. " :G 
OSUB 3000: GOTO 7440 

7322 M$= I NS ( IT (C-1) ) 4-"^" -FSTRS (S) -I-" GOLDf 
X. '■ -.GOSUB 3000 

7700 IF IV=0 AND TW-4 GOTO 7740 

7710 M$=MS$(TW*2) : GOSUB 3000 

7720 M$=MSS(TW*2+1) :GOSUB 3000 

7730 GOTO 7100 

7740 M$="7t-? iUtc V vr yVi VbntJit' ¥ " :G0 

SUB 3000 

7750 M$=" tiHi^tt \it)hit'ti ^ti. ":G0SUB 3 

000 

7760 IF IM=8 THEN M$="7*-?l--- t itofci^' 

fet^ftik^ia. j" :GOSUB 3000: GOTO 7100 

7770 IT(IM)=12:IM=IMfl:G0SUB 3200:IV=1:G 

OTO 7100 

i%mt fiit<' *4*twta' t*' fry 
i%mt ^w It u ai^btz-ith Jtt 
i^mt ff -x<^' yf yw ^i^i \t' 
7t-?'v yr yvti. Jfcvwt<fttMi?.j 



33000 DATA 
33010 DATA 
33020 DATA 
33030 DATA 
33040 DATA 
33050 DATA 
33060 DATA 
33070 DATA 
33080 DATA 
33090 DATA 
33100 DATA 
33110 DATA 



Aft' t-f ff) hi}><t' t. J 



List 8 7^7.mmtu^}mm 

9 X=54:Y=8:WY=18:HP=10:HM=HP:ST=3:DF=3:D 

X=3 : LV- 1 : EX=0 : GP=0 : I V=0 : BO=0 : GOSUB 3600 

1520 A=ST1CK(0) :IF A=AA THEN A=0 ELSE AA 

=A 

1525 LOCATE CX, CY+CA:PRINT" "; 

2100 BO=0:EH=0: GOSUB 3500 

2556 IF B0=1 THEN M$="->*y 9' i-W i\ ^Aff^\ 

" : GOSUB 3000: RETURN 

2570 MS=STR$ClNT((AT-AD)/4)+l)+"r -fyl-y ? 

' >-y 9 7fX^!":G0SUB 3000 :EH=EH- INT ( <AT-A 

D)/4+l) : RETURN 

2610 IF RND(1)<.3 OR BO THEN m=" yilv •/yf\ 

• 4^91" -.GOSUB 3000:RETURN 

2730 ON IT (0-1) +1 GOTO 2740,2770.2780.27 

90. 2790, 2790, 2790, 2790. 2790, 2790, 2790, 27 

90. 2800 

2800 IF BOOl GOTO 2790 

2810 M%="\t' jt9H-> filti- ■ -j" :GOSUB 3000:M$ 



tt'i"(Dwmiz''N"^mnL 

Xh. Wl^MhtiX L S. ^ ^ 



mW±iztaW^tifj:^\ 

ut[n i^^uz^) t^w&z, 

'k^t>^±.t<^)r&x\.^tzX 1 u 

(r)X\ %x^t~^[itz, 
(Dri'xA*<5^Tr^r J: 1 f£<nx\ 

^x-^tmi uz, 
®'^^<7)mmt < ^i- ^} r &x I ^fz 

(r>^. IK L/C, 

®^m.(r>^.mwmr&fz(DX'^ 

< Lto 




-" ":GOSUB 3000:M$=" !" :GOSUB 3000:BO=2: 

GOSUB 3100: RETURN 

2970 MS=STR${iNT{(AT-AD)/4)+l)+"*- -(y^y 9 

' i~y 9 '>y^!" : GOSUB 3000:HP=HP-INT ( (AT-AD 

)/4+l) : RETURN 

3100 IF STRIG(0) GOTO 3100 

3110 IF STRiG(0) GOTO 3140 

3130 IF STRIG(0)=0 GOTO 3105 

3145 IF STRIG(0) GOTO 3145 

4220 GOSUB 3300: IF 0=0 THEN GOSUB 3400:G 

OTO 4100 

4320 GOSUB 4700: GOSUB 3400: GOSUB 6100: GO 

TO 4000 

7065 LOCATE 1.1:PRINT TW$(6); 

7070 MS='Xt' ;t?r?^ii>' WfttfctltiifeMi-) ti>" :G0 

SUB 3000 

7075 MS=" n^i*. j:< ^Ur W 99k^ft":G0S 

UB 3000 

7080 M$=" t»W3t' 4. L4>L fciifc hlP' ft" :G0 

SUB 3000 

7085 M$=" tet£i>l?" : GOSUB 3000:GOSUB 

3100 

7090 EN=10:BO=1:GOSUB 6010 

7095 IF BO THEN BO=0:GOTO 7170 ELSE RUN" 

ENDING. BAS" 

30010 DATA ^<^j2.28.B 

30015 DATA ^<^nurboR, 50. 

30030 DATA iPi>«ifcL, 30. 10 

30035 DATA ToOii)L. 100. 20 

30040 DATA y«>9«ii?L.500.50 

30045 DATA <' A,X, 15.5 

30050 DATA :f^)ryi-f9 . 48. IB 

30055 DATA Xoff)0*>.2BB.2B 

30060 DATA yA^^WiOt. 1000. 50 

30180 DATA i/9^QX. 60. 28, 

30, 26. 30, 50 

30190 DATA fyf^OX, 70, 32. 

36, 32, 50. 80 

30200 DATA (•' 53' >. 80. 36. 

42, 36, 80, 120 

30210 DATA 7' "Jtf^m. 90. 40. 

48, 40, 100, 200 

30220 DATA fc&ViNt' ;t?, 200, 44. 

54. 44, 10000, 10000 




112 



7P^55>^.=W! 



BTC75 1 > h ^mx X < nfc u r -So 



List 9 


Ej^^iJ^ 


8 'i-x 




2040 


'fx 


2100 


BO=0:EH=0 


3500 


■n 


3510 


•fx 


3520 


' W 


3530 


■n 


3540 


'n 


4002 


'5^;^ 


4003 


fx 


4004 


•n 


6050 


tx 



i:'^}^\.^tzh. 7fsXii(Dmmiz\ 

■5 J: -5 C L J; T„ ^^BO*^' 1 CO: 
ti^i < 4- ^ ". *!:&?£*< # tIj^^j: < =^d: 

:KB(35?AT-5o 

1 t BO*' 2 CcC 'J V '1^ 7.^6015!^ 
Z t ti^X'$ ^ t ENDING.BAS?: P 



fzo X'h. 4-[llfimL:tU^MJ. 

t<7)iiit\ zntX'(Dm^i:n 



fa^RPG* <■ lb LUZ L T^^ to ti l^ 

H z^X'^mt^^(DZ ttzii t:\ 
yn:/-7Am^Ltdrib<^oT*- 

Xf£MiX\ ttzmn ! 



RPGMAP. BAS 



1 


mu;^h 


AD 


ffiBflffl-EWHi 


AT 


iSISffi-aSfi 


BO 


+:7.7 5 7 


CCS 


3 -7 :/ KA:^ffl 


CA 


^■7vh-mimm&. 


CC 


Z(D'<y^y-yV 


CM 


^■^•yvmm 


a 


nv:^Kiit;^5S-yvi-ffl 


CV 


='-7:^KSBi6-V't'ffl 


DF 


7V- ■V-fflESWj 


DX 


7'^--f-fflS:aft 


DY 


9 -f y K-t^YBIta 


ED 


StcDS[i$tt 


ED(i^ m.oms.^')^i- ■ 


EF 


mmmn m 


EF(i£0 ite®EfiW;^y^^ ■ 


EG(10) (Sfflfc^VXh ■ 


E!l 


np^mi ■ 


EMia 


®;o^:/j 'J X f- ■ 


EN 


m»^ ■ 


EN$(WSi©«ffiyxh ■ 


ES 


ii<o^^ ■ 


ES(i0} m®«S y X h ■ 


EU<35 


U'iJVT y T^SSit iJ X 1- ■ 


EX 


imm. ■ 


Ex(i^) mow^m'j^t- 1 






5 SCREEN 8 

IB' RESTORE 20jB00:AD=&H8M* 

20 FOR i=ff TO 63: READ A$ 

30 FOR J=» TO 63:VPOKE ADfJ. ASC (M1D$(A$. J+1. 1) ) :NEXT J 

4» AD=ADf64:NEXT I 

50 RESTORE 21000 :AD=&H9000 

60 FOR 1-0 TO 63: READ AS 

70 FOR J-0 TO 63:VP0KE ADi-J. ASC (M!D$(A$, J + 1. 1) ) :NEXT J 

80 AD=AD+64;NEXT I 

90 BSAVE" map. daf . &H8000. &H8FFF, S 

100 BSAVE" map. obj" . &H9000, &H9FFF. S 

110 SCREEN 0:PRlNT"Completed." 

120 END 

20000 DATA ■• %%%%%%%%%%%uuuutuutuuunnuununnnunu%nunn 
20010 DATA ■■%%%%%%%%%uunuunuuuuuuuunnuuunnntnnun%t 
20020 DATA •■%%%%%%%nututuunnuun%nnnunnnnnnuuunnnn 
20030 DATA ■■%%%%%%tuututuutntunntnnnnunuunnnnunnnn' 

20040 DATA 
20050 DATA 
20060 DATA 
20070 DATA 
20080 DATA 
20090 DATA 
20100 DATA 
20110 DATA 
20120 DATA 
20130 DATA 

20140 DATA ••%%%% nnntnnnunr 



;. . . . uuunnnununtnuu unnr 

unutuuuuuun tntr 

. . uutuuunun ntr 

.... ntnnunn inr 

.... ttunnnn $...... ntr 

######## ###»#" 

un ..#####" 

####" 

'%%%% '. ####" 

•%%%% $ nntr 



20150 DATA 



%%%%%. 



uuuuuiuuuuuuur 



20160 DATA "%%%% %%%%%%%%%%%%%%%- . . ###############################" 

%%%%%%%%%%%%%%%%%%%%%%%%unuumuunnnn$unr 

##########" 

##...####" 

..### %%%%%" 

.. .## %%%%%%%' 

&&& «... %%%%%%%%%%%" 



20170 DATA 

20180 DATA "%%%%% 

20190 DATA 
20200 DATA 
20210 DATA 



20220 DATA "%%%%%% UU$tn%%%%%. 

20230 DATA -%%%%%%% tUU 

20240 DATA 



113 



CP 


mn^ m 


HM 


yu_^._fflf^0j-[gg ■ 


HP 


■:ru—y-iDt^ ■ 


IB 


v-g v7"OT-f 7=ABS^Ei! ■ 


IL(n) 


■>q .vv'60T-f tAi;::^ h ■ 


IM 


Wil^-tiT^TA^ ■ 


iNS(16)T-frA©g35 ■ 


iP(15) 


T-fTAOa^ ■ 


!T(7) 


fiS^Lri.^sr-f?A ■ 


i¥ 


-{^•yhyyir ■ 


LV 


-T'^^-t^^pil^-CjV ■ 


m 


>..-b-y«yT:ffl ■ 


m&w)^-^y^-:? ■ 


HBS(» 


■? -f >• K-^1^M ■ 


msmm\hm,^vyf-? ■ 


iiBS{mffr-e"sS-t' o^'v-t-v^f-:? ■ 


ST 


-/[^-■f-ln** ■ 


msii) BToggi ■ 


TH(6) 


aroSrS*^ 


TF$(6) 


T'/xABSjc7 7?' 


ifY 


f-f :'K-i^-Y^^ 


X 


yu-^-am-xmrn 


Xl 


yu— f-ffig-X^a 




('•'■yi'Tvy) 


y 


7'L'--f-aH-Yffi|g 


n 


7'U'--^-ffig-Yggg 




i'-'yi'T-.y) 


u 


yw-+-ago+-i.7^?- 





«<« HPGMAIN.BAS >»» 









3100 



■* 



■7-f y F — .©S^^fcb:^ 

3200 T^T-i'^TF- 

3300 7-f T-^-bt'? h 

3400 T-l-xA-feui- hS?^ 

3600 yi'-f ■I'-O:^-?-?;^ 

3700 W.Mi^m 

T-fxi^Hi!5:tC-l)S 
3-7:/Fg|iiJffl? ijT~ 



500 igMfflMS 

700 [ffre> nStJ ©41^ 

900 lffrO«R^*-T^rA-J|rNS 

3000 '^-f/^-fx 

10000 iiia®**^*< 

T-f xAr'-i- 



«<« RPGCHR.BAS >»» 



SCREBN1.6ftt+f f ??-^« 



23250 
20260 
20270 
20280 
20290 
20300 
20310 
20320 
20330 
20340 
20350 
20360 
20370 
20380 
20390 
20400 
20410 
20420 
20430 
20440 
20450 
20460 
20470 
20480 
20490 
20500 
20510 
20520 
20530 
20540 
20550 
20560 
20570 
20580 
20590 
20600 
20610 
20620 
20630 
21000 
21010 
21020 
21030 
21040 
21050 
21060 
21070 
21080 
21090 
21100 
21110 
21120 
21130 
21140 
21150 
21160 
21170 
21180 
21190 
21200 
21210 
21220 
21230 
21240 
21250 
21260 
21270 
21280 
21290 
21300 
21310 
21320 
21330 
21340 
21350 
21360 
21370 
21380 
21390 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DA"1 A 
DATA 
DAI A 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAIA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



'%%%%%. 



## #. %%%%%%%%%%%%%" 

. .U #■ ■ %%%%%%%%%•*•' 

. . ###### ##.... %%%xxx««M- 

# # %%•%%•%' 



##. 



■%%%%% * ##- ■ 

'%%%%% uutnu-nuuut. . . 

•%%%%% tun 

•%%%% nn 

70H%!%yTI- . ' . ' . ^ • • ^ - - • WvwtF • - • 

. . , .ifii 

'.'.tn%%%%%% 

.## %%%%%%. . . 

n %%% 

-%%%%%%%%, .### &&&&&&&. . .%%% 



Mtltl" 
. MMt" 

. Ktttt" 
. MIM' 

. Ilitt" 

. . •••«" 



%%%%% %%%%%r 

%%% %%%%%%• 

....%% %%%%%%%' 

% %%%%%•%' 

% %%%%•%%' 



■ %%%%%%% 



%. 



%%- 



%. 



%%%%%. 



%. 



%. 



,.% %%%%••" 

...% %%%%•" 

....% %%%%' 

X %%%%" 

% %%%%" 

&&&&&&&&. .% %%%%%" 

....%...%% %.... %%%%%%" 

...%. &&&&&&&&& %.. %%%%%%%' 

. .%% &&&&&&& &&&&&& X. . ^%%%%%' 

&&&&&&& &&& ...%%.. %%%%" 

&&&&&& %%%. . %%%%" 

$ &&&& %%% %%%%%' 

%%%%%%%%l 



■000»000000000000000000000000000000000000000000000000000000a00»00 
■000 00 00 0000000000000000000000000000000000000000000000000000000 
■jS00000000ld(l0Sildeiff0Sfl(lglSISISS!ldldeidd0ISISJSflliSlllllB0g00l3B0000ISe000lietlBB!IB08 
-S0000000000000000BB08000000SS9SBBB00000000000000000BBBBBBBBBBBBBBB 

■ 000000333300000000000000000030000000000000000001 11111111 IBBBBBBB 

■ 00000033333330000000000000000000001 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 100000 

■ 000002222222222000000000000000001 111111111111111111111111 1 110000 
'0000022222222222200000000000001111111111111111111111111111110000 
■0000222222222222200000000000011111111111111111111111101111110000 
■0000222222222222220000000022211 11 11111U111111111111111111100000 
■0000222222222222222000022222211111111111111111111111111111100000 
■0000222222222222222222222222211111111111111111111111111111110000 
■0000222222222222222222222222211111111111111111111111111111110000 
■0000222220222222222222222222211111111111111111111111111111000000 
■0000222222222222222222222222211111111111111111000000000000000000 

■ 000022222222222222000002222221 1 111111 100000000000000000000000000 
' 0000222222222220000000000000001 1 1 0000000000000000000000000000000 
■0000022222200000000000000000000000000000000000000000000000000000 
■0000022220000000000000000000000000000000000000444444440000000000 
■0000022200000000000000000000000000000004444444444440444400000000 
■0000003300000000000000000000000000000044444555444444444005550000 

■ 0000003 3 3 30000000333 330000000000000044445555555444440000 5 5050000 
■0000003333333333333330000000000000444445555555554400055555500000 

■ 0000000 3333 33333333333000004444444444444555555444005 5555 50000000 

■ 0000000 333333333333333 304444444444444444455544444055 500000000000 
■0000003333333333333333300444444444444444444444444050000000000000 
■0000003333333333333333330044444444444444444444444055000000000000 

■ 0000003 3 33 33333 333333 333300000044444444444444444005 5 550000000000 

■ 0000033333 3 333333333 3 3 33333 3 3 304444444444444444405 5 5555 5 50000000 
■0000033333333333333333333333330044444444444444440555555555000000 
'0000033333333333333333333333333344444444444444000555555555000000 
■0000033333333333333333333333333044444444444440055555555555000000 
•0000033333333333333333333330000000004000000000555555555555500000 
'0000033333333333333333300000555555555555555555555555555555500000 
■0000333333333333333300005555555555555555666666666666666555500000 
■0000333333333333300005555555566666666666666666666666666665500000 
■0000333333333333005555555566666666666665555555555555555555500000 
'0000333333333300000000055555555555555555555555555555555555500000 
■000000333033300AAAAAAAA00000055555555555555555555555555555550000 

■ 00000003 333300AAAAAAAAAAAAAAA0005555555666666666 55 555 55555500000 




7P^55>^.=W! 



Itl^l^lZ RPGMAP.BAS ^^n 
t^il. MAP.DATi:MAP,OBJi:i^ 

^ 7 T -r ;u A<x -f ;^ ^ (cfF^ ? n 

■&„ fei;[j:RUN"OPENING.BAS" 
X\ OPENING.BAS-»RPGCHR.BAS 
-¥ RPGMAIN.BAS-* ENDING.BAS 



21430 DATA '•00000a0a3300j»AAAAAAAAAAAAAAAA999ja'M55555555556666666655555M0a00" 
2141«r DATA ■' MirMMMMAAAAAAAAAAAAAAA999999999e0«0«666666666666666666«aM»0" 
21420 DATA "00000i^000AAAAAAAAAAAAAA99999999999999999000'666666665666666»j0'jB000" 
21430 DATA " 00000000AAAAAAAAAAAAAA9999AAAAAAAAAA999999900666666666666««MM0" 
21440 DATA ■■00000000AAAAAAAAAAAAAA9999999999999999999999906666666666600«0'00jar" 
21450 DATA " 0000000AAAAAAAAAAAAAA9999999999999999999999999066666666660»jff0000" 
21460 DATA " 0000000AAAAAAAAAAAAAA999999999999999999999999990666666666600j0'«0a" 
21470 DATA ■■000000AAAAAAAAAAAAAA099999999999999999999999999906666666666e0000" 
21480 DATA " 000000AAAAAAAAAAAA008888899999999999999888888888806666666666000»" 
21490 DATA ■■00000AAAAAAAAAAAA08SS888888888888899888888888888880666666666000a" 
21500 DATA "00000AAAAAAAAAAAjBr88888S8888888999899999999988888888066666666000j8'" 
21510 DATA "00000AAAAAAAAAA088888888888888888999988888999999998806666660000a" 
21520 DATA ■■000000AAAA0AAA008888888888888888888888888888888888888066660000jff0" 
21530 DATA ■■00000000AAAAA08888888888888888888888888888888888888S880770000000" 
21540 DATA ■'0000000000AA007777777777888888888888888888888S888888888077700000' 
21550 DATA "0000000000000777777777777777777888888888888888888888888800770000'' 
21560 DATA "0000000000000777777777777777777777777788888888888888888000770000" 
21570 DATA "0000000000000000777777077777777777777777777788888888000777700000" 
21580 DATA " 0000000000000000007777777777777777777777777777777777777700000000" 
2 1 590 DATA " 0000000000000000000000000000000000077777777777777777000000000000" 
21600 DATA ■ 0000000000000000000000000000000000000000000000000000000000000000" 
21610 DATA ■0000000000000000000000000000000000000000000000000000000000000000" 
21620 DATA "0000000000000000000000000000000000000000000000000000000000000000" 
2 1 630 DATA " 0000000000000000000000000000000000000000000000000000000000000000" 



OPENING. BAS 



i0 SCREEN 5: COLOR 8,0.B 
2Si OPEN"grp:"AS #1 
i^SI FOR 1-0 TO 10 

.40 PSET (32, I*8-h8),0;READ A$: PRiNT#l. A$ 
^50 NEXT 

60 FOR 1=21 TO STEP -1 

,70 COPY (16, 1*4+S)-(128~4*I,95)T0(15, 1*4 
i:+8) 

80 COPY (239. I*4+S)-(128+4*i.95)TO(240. I 

*4+8) 

90 NEXT 

100 COLOR 15:PSET(72.128),0:PRINT#1."PUS 

H SPACE KEY" 

110 IF INKEYSO"" GOTO 110 

120 A$=INPUT$(1) 

130 Y=0 

140 READ A$:IF AS^"*" GOTO 180 

150 PSET(8.192),0:PRINT#1,A$ 

160 FOR 1=1 TO 8:COPY(8,2)-(247.201)TO(8 

,0) :NEXT 1 

170 GOTO 140 

180 IF INKEY$<>"" GOTO 180 

190 A$=INPUT$(1) 

200 RUN"RP6CHR.BAS" 



1000 DATA 
1010 DATA 
1020 DATA 
1030 DATA 
1040 DATA 
1050 DATA 
1060 DATA 
1070 DATA 
1080 DATA 
1090 DATA 
1100 DATA 
2000 DATA 
2010 DATA 
2020 DATA 



• • • 



• • • 



• • 



'c<ti fclA^ Kwbii <tr lit. 



2030 DATA "fcn' hh ^Vr fi?*^ lAt'Jtttfc. 7* V/^X 

2040 DATA "Whis-' 7fvx7V-(niii hh\^X\^tt%, !-> 

2Sf50 DATA >9 timt<r) ioHJiX' LJ-)3t«t' t. 

2060 DATA " IIX' r V/^XWti¥ *^iftii' i*">tfl 

2070 DATA "T' tiS*' .tW LtS: T 'Jyt^IWWi h'ith 

2080 DATA "ft fcii^t*' in LiU. 

2090 DATA " ti^t, <-5t i^t^tm. \t' J/ift' ^fc-jit 

2100 DATA "tli\r tt' Lti ^S:::' W ^fc' -yit^X' t. 

2110 DATA " r r/ixmff) t\^t' ¥ ial' i3t hti 

2120 DATA "tit \t' ;*^(1. 7' V/^xm^ SioK ?>> 

2130 DATA '"yf>'^t<n %10V lot i9'?-intT\itx. 

2140 DATA "f^t m^ 4>^J^u it^tm' t, 

2150 DATA " Ui^iiU: l^^\^ ^>r tliiOfctt \t' / 

2160 DATA "91^ fcio-530 ■C4'' »4'' tt' Hit. X 

2170 DATA "i>'WS or ffik^^ 1i\^loX' It. 

2180 DATA " ffcL^* t>tO<Ot i^t' ki-C tAiltjW) lA 

2190 DATA " tUi> \^iiii'^r>{i l^&t^. it ^^fc^U^ 

2200 DATA " t ^t' Xt ti^O i-Ufc »t»fti». I>Wi iJ 

2210 DATA " W i'/.UlX ^^l' i5^ fcfcJifeU 

2220 DATA " nph f ititi. <.L lAftt i^iUaiV^ 4 

2230 DATA " ^tt' i^UOil^ I:*, n' ;(f\'n-. j 

2240 DATA " JUt' ^*>ft 7" 'JytXW60 fciif ttt ata 

2250 DATA "J: ^i->Ti»5t *y?' UK' tft4>' . 7" 'J^'tX 

2260 DATA "WWi L' oO Vt Otrtft. a^T^ii^tJ*^. 

2270 DATA " Hfl ^i^WKtt ^)/r iiiii t)iW<tt 

2280 DATA "yf lit V* >U3;' n' k^LtDiit (ifei 

2290 DATA "^fcii t' l^oft^T' t. 

2300 DATA " =*y?'Hl(i tlva<iU, l^t fct' ^ot 

2310 DATA "ia::U' LJ^lt' t 4'>tLiViiLft. txtk 

2320 DATA "X' liofc^ fc;^t' Li-Jtt' .^<*^it^u9 

2330 DATA "miX. mwt5:4>o3t ^y?' fcaii iiL*t4* 

2340 DATA "J tii^fa*>' fc' ^^;• ^fc^t' V^J. Ok^ttt t7 

2350 "DATA " ?^t T^ft' iXltW L^-)IA4'' l>?ft' fii 

2360 DATA " L^^t t' U' AfcSoTVKlT' t 4->tLilii 

2370 DATA " Ifc. fi^'5:C:ti*.. SkiLii-fe t7*^t iii'ia 

2380 DATA "^A^DT k^LtiSHt itfciii' J:*»->t---jt 

2390 DATA "fefcotfe ftiK^loOr t. 

2400 DATA " kwA' 7. wO::t* ^»Atti3At' Ott. V^*' 

2410 DATA ufrt y^frt r v/'tx^mi tti^t itti^ 

2420 DATA "t *^^J'«tfcn5 fV-yXfl'iitfcojr t. 

2430 DATA '>*liiUi'^tti.. 7' >J:'-fcXW6^t<Vifc' tV < 

2440 DATA ''^t';(?O^^S ?7H^t3\t VfeOtti^^ftWt' 




115 




J 

2450 DATA "f- • " 


60140 


DATA 


&B11111111.&H57 




2460 DATA " 


60150 


DATA 


&B11100111.&H57 




2470 DATA " PUSH SPACE KEY 


60160 


DATA 


&Bllllllll,ftH57 




2480 DATA " 


60170 


DATA 


&B11111100.&H57 


t^fee 


2490 DATA * 


60180 


DATA 


&B10011111,&H57 


i^^ 




60190 


DATA 


"$" :• 9fi/ 


''^9 




60200 


DATA 


&B11100111,&H6F 


^^^ 




60210 


DATA 


&B1 100001 1,&H6E 




RPGCHR. BAS 


60220 
60230 


DATA 
DATA 


&B 1 000000 1,&H6E 
&B00000000,&H6E 






60240 


DATA 


&B10000001,&H61 




10 KEY OFF; COLOR 15,0.0 


60250 


DATA 


&B10000001,&H6E 




15 SCREEN 5:BL0AD"map.obj",S:G0SUB 9000: 


60260 


DATA 


&B 1 000000 1,&H6E 




WIDTH 30 


60270 


DATA 


&B10000001.&H61 




20 CLEAR 1000.&HD7FF:RUN"rpgmaln.bas'' 


60280 


DATA 


"r :'t7 




9000 OB=&HD000:GOSUB 50000 


60290 


DATA 


&B11100111.&H61 




9005 RESTORE 60000 


60300 


DATA 


ftB10011011,&H61 




9010 READ A$:IF A$-"**" GOTO 9060 


60310 


DATA 


&B10011001,&H61 




9020 A=ASC(A$)*8:F0R I =A TO A+7 


60320 


DATA 


&B00111101,&H61 




9030 READ A$:VPOKE BASE (7) +1 . VAL (A$) 


60330 


DATA 


&B10110100.&H61 




9040 READ A$:VPOKE BASE (6) +1 . VAL (A$) 


60340 


DATA 


&B01110010,&H61 




9050 NEXT I: GOTO 9010 


60350 


DATA 


4B01011010,&H61 




9060 GOSUB 50100 


60360 


DATA 


&B10101101.&H61 




9070 RESTORE 61000:FOR J=0 TO 7:READ B$ 


60370 


DATA 


"&":'t7 


j^^ 


9080 A$="":FOR 1=0 TO 7 :A$=A$+CHR$ (VAL (" 


60380 


DATA 


&B11000011.&H62 


3^8 


&H"+MID$(B$, 1*2+1,2))) : NEXT I 


60390 


DATA 


&B10000001,&H62 


^^ 


9090 SPRITES (J) =A$ -.NEXT J 


60400 


DATA 


&B00000000.&H62 


4 


9100 RETURN 


60410 


DATA 


&B00000000,&H6C 




50000 'SCREEN 1.5 -ferf^ 7" a?' 9A 


60420 


DATA 


&B10000001,&H6C 




50010 SCREEN 1 


60430 


DATA 


&B1 11001 11, &H68 




50020 VDP(0)=VDP(0) AND &HF1 OR 2 


60440 


DATA 


&B11100111.&H68 




50030 VDP{1)=VDP(1) AND &HE7 


60450 


DATA 


&B11000011.&H68 




50035 VDP(3)=255 


60460 


DATA 


"•":M7 




50040 I =0B: RESTORE 50200 


60470 


DATA 


4811000011. &H6F 




50050 READ A$:IF A$<>"*" THEN POKE I . VAL 


60480 


DATA 


&B 1 000000 1.&H6F 




{"&H"-I-A$) : 1 = 1+1 :GOTO 50050 


60490 


DATA 


&B00001111.&HFE 




50060 DEF USR=OB:A=USR(0) : RETURN 


60500 


DATA 


&B00000011.&HFE 




50100 I =0B: RESTORE 50150 


60510 


DATA 


&B00000000, &H6E 




50110 READ A$;iF ASO"*" THEN POKE I , VAL 


60520 


DATA 


&B00000000.&H6E 




("&H"+A$) : 1=1+1 :GOTO 50110 


60530 


DATA 


&B10000001,&H1E 




50120 0=VAL (" &H" +LEFT$ (HEX$ (OB) . 2) ) 


60540 


DATA 


&B10000001.&H61 




50130 POKE OB+8.0 


60550 


DATA 


"=" :' }\i/ 




50140 DEF USR=OB:A=USR(0) : RETURN 


60560 


DATA 


&B01111110,&H61 




50150 DATA 21,00,00. 11, 00, 08. CD, 0F 


60570 


DATA 


&B011 11110. &HB1 




50160 DATA D0, 21,00, 20, 11.00.28.01 


60580 


DATA 


&B01111110.&HB1 




50170 DATA 00,10,CD.4A.00. EB,CD,4D 


60590 


DATA 


&B01111110.&HB1 




50180 DATA 00, EB, 13, 23,08.78. Bl, 20 


60600 


DATA 


&B01111110,&HB1 


, 


50190 DATA F1,C9,* 


60610 


DATA 


&B01111110.&HB1 




50200 DATA 21, 00. 20. 01. 00, 08, 3E, F0 


60620 


DATA 


&B01111110.&HB1 




50210 DATA 03.56,00,* 


60630 


DATA 


&B01111110.&H61 




60000 ' CHARACTER DATA 


60640 


DATA 


■'**" :'END MARK 




60010 DATA ". " :' 'J? 


61000 


' xr 


yn r -9 




60020 DATA &bl 111 1011, &h68 


61010 


•f?x 






60030 DATA &bl011Ull,&h68 


.61020 


DATA 


183C3C18003C5A00 




60040 DATA &bllllllll.&h68 


61030 


DATA 


IS 0Slg0b6Bm 02466 




60050 DATA &bl 111 1101. &h68 


61040 


'Sr 






60060 DATA &bllll0111.&h68 


61050 


DATA 


38102000002C1000 




60070 DATA &b01111111, &h68 


61060 


DATA 


00081C183C106E66 


-i^^M 


60080 DATA ftbllllll01, &h68 


61070 


■^? 




-^^^ 


60090 DATA &blll01111,&h68 


61080 


DATA 


18240000003C5A00 




60100 DATA "#" :''?5 


61090 


DATA 


00183C7EBD002466 




60110 DATA &B11110011.&H57 


61100 


'tr 


} 




60120 DATA &B11111111,&H57 


61110 


DATA 


1C08040000340800 




60130 DATA &B00111111, &H57 


61120 


DATA 


001038183C087666 
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7P^5H>^cW! 



RPGMAIN. BAS 



I CLEAR 7000 :CLS 

4 DEFINT A-Z:DIM MB$ (5) , MAS (63) . INS (12). 

IP (12). IE(12),IT(7).EU(35).MSS(il) 
.5 DIM EN$(10).EH{10),ES(10).EF(10).ED(10 
;).EX(10).EG(10) 

6 DIM TW$(6).TH(6).TF$(6). 1L(11).TX(6).T 
Y(6) 

7 OPEN " map. dat" FOR INPUT AS #1:AS=INPUT$ 
,(7, 1) :FOR 1=0 TO 63:MA$ ( I ) =INPUTS (64, 1) : 
^NEXT 1 : CLOSE 

9 X=54:Y=8:WY=18:HP=10:HM=HP:ST=3:DF=3:D 
;X=3 : LV= 1 : EX=0 : GP=0 : I V=0 : BO=0 : GOSUB 3600 

II TW=0 

.12 RESTORE 30000: FOR 1=0 TO 12: READ INS( 
:I). IP(I). IE(I) :NEXT 
13 IM=0 
rl4 RESTORE 30100: FOR 1=0 TO 10 

15 READ EN$(I).EH(I).ES(i),EF(I).ED(I).E 
.X(I),EG{n :NEXT I 

16 RESTORE 31000: FOR 1=0 TO 35: READ EU { I 
;) :NEXT I 

a7 RESTORE 32000: FOR 1=0 TO 6: READ TW$(I 

).TH(I),TF$(I),TX(I),TY(I) :NEXT I 
:18 RESTORE 33000: FOR 1=0 TO 11:READ MSS ( 
U) :NEXT I 

:i9 PUT SPRITE 0. (48.39), 1,4: PUT SPRITE 1 
!. (48,39). 11.5 

20 GOSUB 5000: GOSUB 3200: GOSUB 10000: GOT 

4000 

1000 ■ 

1010 LOCATE 1.11:PRINT" 99W 

1020 LOCATE 1,12:PRINT" -f H'" 

1030 LOCATE 1.13:PRINT" TAf^^" 
;i040 CY=0:CX=1:CA=11:CM=2 

1050 GOSUB 1500: IF C=0 GOTO 1050 

1060 RETURN 

1500 ' 

1510 IF STRIG(0) OR INKEYSO"" GOTO 1510 
.1520 A=ST1CK(0) :1F A=AA THEN A=0 ELSE AA 
''=A" 

1525 LOCATE CX, CY+CA:PRINT" "; 
a530 IF A=l AND CY>0 AND CM>0 THEN CY=CY 

:-l 

'1540 IF A=5 AND CY<CM THEN CY=CY+i 

1550 LOCATE CX, CY-»-CA:PRINT">" ; 

1560 IF INKEYS=CHR$(13) THEN C=0: RETURN 

1570 IF STRIG(0)=0 GOTO 1520 

1580 C=CY+1 

1590 RETURN 
12000 DY=0:NF=0 

2005 GOSUB 10000 

2006 M$=EN$(EN)+"*' 7771/? ! " :GOSUB 3000 

2007 IF DX<ED THEN M$="3f7;ft' 5*' 7Xfl.-7x:i 3 
fjr ^yf^fl" -.GOSUh 3000: GOTO 2050 

.2010 GOSUB 1000 

2020 ON C GOSUB 2500,2600,2700 
^2025 IF NF THEN GOSUB 3100: RETURN 

2030 IP EH<=0 GOTO 2100 
.2050 GOSUB 2900 
:2055 IF HP<-0 THEN HP=0 



2060 GOSUB 3600 

2065 IF HP=0 GOTO 3700 

2070 GOTO 2010 

2100 BO=0:EH=0 

2105 PLAY" O5T250S10M50L32CEDFEGFB 

2110 MS=EN$(EN)+"? fif-yfl" :GOSm 3000 

2120 MS=STRS(EG(EN))+"GOLD f-'iP?! " :GOSUB 

3000 
2130 m="f^f>fii' ''+STR$(EX(EN))f"7X?r :G0 
SUB 3000 

2140 GP=GP-I-EG(EN) :EX=EX+EX(EN) 
2150 GOSUB 3600 

2160 IF (EX>=EU(LV-1)) AND LV<27 GOTO 22 
00 

2170 GOSUB 3100: RETURN 

2200 PLAY" S0m6000tl50o41 16g8ggo5c8vl5c2" 
. '■ S0m6000tl50o41 16b8o5cde8vl5e2" , " 30m600 
0t 1 50o5 I 16d8ddr8 I 32o3cdef gabo4cdef gabo5c 
2210 GOSUB 3100 

2220 M$="i/VM' 7il' yfl":GOSm 3000 
2230 LV=LV-I-1; GOSUB 3100 

2240 A-1NT(RND(1)*6)+2:M$="HP*' ''+STR$(A) 
+"rr 7?!" :HM-HM+A:GOSUB 3000:GOSUB 3100 
2250 A=lNT(RND(l)*3)+l:MS="'73t*' "+STR$(A 
)+"7*' 7?!" :ST=STfA:GOSUB 3000:GOSUB 3100 
2260 A=INT(RND(1)*3)+1:M$=''*' ^^' g'Js?*' " + 
STRS(A)+"rjO' 7? I" :DF=DF+A:GOSUB 3000:GOSU 
B 3100 

2270 A=INT(RND(l)*3)+l:MS=";tA' tt;^' " fSTRS 
(A)fr*' 9?!" :DX=DX+A:GOSUB 3000:GOSUB 31 
00 

2280 GOTO 2150 

2500 MS="7tf/ a-^r *!" :GOSUB 3000 
2510 IF ED>DX THEN IF INT{RND (1)* (ED-DX) 
/DX) THEN m="iX\ r i-V ^ 7?X7^t'(!" :GOSU 
B 3000: RETURN 

2520 PLAY"O4T250S8M100L32A#AG#G 
2530 FOR 1=1 TO 4:C0L0R. . 8:F0R J=l TO 10 
:NEXT J:COLOR, ,0:FOR J=l TO 10:NEXT J, I 
2540 AT=!NT(RND{1)*ST/10)+ST 
2550 AD=INT(RND(1)*EF/10) 

2555 IF RND(1)<.01 THEN im="\.^^'U Aff ^\ 
!":GOSUB 3000:AT=AT*2 

2556 IF B0=1 THEN M$="y*y 9' i-'/ >\ ^-fft-i I 
■' : GOSUB 3000: RETURN 

2560 IF AT-AD<=0 THEN m=" 9' *~V f 7?x5kt 

AV : GOSUB 3000 : RETURN 

2570 MS=STRS(INT((AT-AD)/4)+l)+"** -(yt-/ 9 

' ;t-y ? 7fX?I":G0SUB 3000 :EH=EH- INT ( (AT-A 

D)/4+l) :RETURN 

2600 MS="7t?A -f 9' =j9r : GOSUB 3000 

2610 IF RND(1)<.3 OR BO THEN m=" -/if-/ -/fts 

• -fy?!" : GOSUB 3000:RETURN 

2620 IF (ED<=DX) GOTO 2640 

2630 IF RND(1)*(ED-DX)/DX>.5 THEN M$="^* 

y 77'J371/?!" :GOSUB 3000:RETURN 

2640 NF=1: RETURN 

2700 ' 

2710 IF IM=0 THEN MS="7;$'> 7'(fM' 7'i7-ky" : 

GOSUB 3000: GOSUB 3400: RETURN 2010 

2720 GOSUB 3300:GOSUB 3400: IF C=0 THEN R 

ETURN 2010 

2730 ON IT(C-1)+1 GOTO 2740,2770.2780.27 

90, 2790, 2790. 2790, 2790. 2790, 2790, 2790. 27 
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90, 2800 

2740 HP-HP+30 

2750 IF HP>HM THEN HP=HM 

2760 GOSUB 4700:GOSUB 3600;M$=" f-CJ a?*' * 

•f7?j'i'" :GOSUB 3000:RETURN 

2770 HP=HP+ 100: GOTO 2750 

2780 HP=HM:GOTO 2760 

2790 M$="t::t ^35t*7?" :GOSUB 3000:RETURN 

2800 IF BOOl GOTO 2790 

2810 M$="^t' ;t?ffo fftii- - ■ j " :GOSUB 3000:M$ 

=" ":GOSUB 3000iM$="!" :GOSUB 3000:BO-2: 

GOSUB 3100: RETURN 

2900 M$=EN$(EN)+V 3-?^ ^ !": GOSUB 3000 

2910 IF DX>ED THEN IF INT (RND (1) * (DX-ED) 

/ED) THEN M$-"$X! f %-V ^ "Virt'f 1" : GOSUB 3 

000 : RETURN 

2920 PLAY" O3T250S8M100L32GG#AA#B 

2930 FOR 1=1 TO 4:C0L0R, , 4:F0R J-1 TO 10 

;NEXT J:COL0R, ,0:FOR J=l TO 10:NEXT J, I 

2940 AT=INT{RND{1)*ES/10)+ES 

2950 AD=INT(RND(1)*DF/10) 

2960 IF AT-AD<=0 THEN M$=" ^ ;t-j/' ? ')tt'* ! " 

: GOSUB 3000: RETURN 

2970 M$=STR$(INT((AT-AD)/4)+l)+"** -(>»•/ ? 

' ;t-y ? -^y^I-iGOSUB 3000:HP=HP-INT{(AT-AD 

)/4+l) : RETURN 

3000 ' 

3010 LOCATE l.DY+WY 

3020 FOR 1=1 TO LEN(M$) :PRINTMID$(M$, I, 1 

): 

3030 FOR J=l TO 10:NEXT J.I 

3040 PRINT:MB${DY)=LEFT$(M$+SPACE$(28).2 

8) 

3050 IF DY<4 THEN DY=DY+1 : RETURN 

3060 FOR 1=0 TO 3:MB$(U=MB${I+1) :LOCATE 

1, I+WY:PRINTMB$(i) :NEXT 
3070 LOCATE 1, WY+4:PRINTSPACE$ (28) ; 
3080 RETURN 

3100 IF STRIG(0) GOTO 3100 
3105 LOCATE 15, 22:PRINT" V" ; 
3110 IF STRIG(0) GOTO 3140 
3120 LOCATE 15,22:PRINT" "; 
3130 IF STRIG(0)=0 GOTO 3105 
3140 LOCATE 15,22:PRINT" "; 
3145 IF STRIG(0) GOTO 3145 
3150 RETURN 
3200 ■ 

3210 FOR 1=0 TO 7 
3220 LOCATE 16. 1+9 
3230 IF IM=<I THEN PRINTSPACES (14) : ELSE 

PRINTIN$(IT(I)) ;SPACE$(14-LEN(IN$(iT(I) 
))) ; 

3240 NEXT I 
3250 RETURN 
3300 ' 

3310 CY=0:CX=14:CA=9:CM=1M-1:GOTO 1500 
3400 ' 

3410 FOR 1=9 TO 16:L0CATE 14. 1:PR1NT" "; 
: NEXT : RETURN 

3600 LOCATE 16, 1 :PRINT" LV :" :LV: " "; 
3610 LOCATE 16,2:PRINT "HP : " ; STR$ (HP) ; "/ 
■' :STR$(HM) ;" " ; 

3620 LOCATE 16, 3;PRINT" ST:" ; ST;" "; 
3630 LOCATE 16, 4:PRINT" DF :" ;DF :" ": 



3640 LOCATE 16, 5:PRINT"DX: " :DX;" 
3650 LOCATE 16, 6:PRINT"EXP:" ;EX;" 
3660 LOCATE 16. 7 :PRINT"GOLD: " :GP; 
3670 RETURN 
3700 ■ 
3710 COLOR 




;GOS 



.8:M$="Tt?A yyf' yV7?- 
UB 3000: GOSUB 3100 

3720 GP=INT(GP/2) :X=TX (TW) +1 :Y=TY (TW) :HP 
=HM: GOSUB 5000 
3730 COLOR ..0: GOSUB 3600: RETURN 

4000 X1=X:Y1=Y:IF STRIG(0) GOTO 4100 

4001 A$=INKEY$ 

4010 A=ST1CK(0) :IF(A AND 1)=0 GOTO 4000 4 

4015 X=X+(A-7)-(A=3) :Y=Y+(A=1)-(A=5) 

4016 PUT SPRITE 0. (48. 39) . 1. A-1 :PUT SPRI 
TE 1. (48.39) , ll.A 

4020 X=X-(X<4) + (X>59) :Y=Y- (Y<4) -l- (Y>59) 

4030 Z$=MID$(MA$(Y),X, 1) 

4040 IF INSTR("%e#",Z$) THEN X=X1:Y=Y1 

4050 IF X1=X AND Y1=Y GOTO 4000 

4055 IF Z$="$" GOTO 7000 

4060 GOSUB 5000 

4070 IF RNDdX.l THEN GOSUB 6000 

4080 GOTO 4000 

4100 GOSUB 4800: IF C=0 THEN GOSUB 6100:G 

OTO 4000 

4110 ON C GOTO 4200.4500 

4200 ' 

4210 IF IM=0 THEN M$="'';*'? T-ffM' r'JV-feV" : 

GOSUB 4600: GOTO 4000 

4220 GOSUB 3300: IF C=0 THEN GOSUB 3400 :G 

OTO 4100 

4230 ON IT(C-1)+1 GOTO 4240.4270,4280.43 

00. 4290. 4290, 4290, 4290, 4290, 4290, 4290, 42 

90.4290 

4240 HP=HP+30 

4250 IF HP>HM THEN HP=HM 

4260 GOSUB 4700:GOSUB 3600:M$=" ^4 'Ja?;*' A 

-( ??•/?": GOSUB 4600:GOTO 4000 

4270 HP=HP+ 100: GOTO 4250 

4280 HP=HM:GOTO 4260 

4290 M$="t-t :t37t;*7?" : GOSUB 4600:GOTO 40 

00 

4300 PLAY"V15L1604C05C06C04C#05C#06C#04D 

05D06D04D#05D#06D# 

4310 FOR 1=1 TO 200:COLOR ..7:C0L0R ,.0: 

NEXT I:X=TX(TW)+1:Y=TY(TW) iGOSUB 5000 

4320 GOSUB 4700: GOSUB 3400: GOSUB 6100: GO. 

TO 4000 1 

4500 ' 

4510 IF IM=0 THEN M$="Xfn' 7Arki\' 7117*^":. 

GOSUB 4600: GOTO 4000 ^: 

4520 GOSUB 3300: IF C=0 THEN GOTO 4100 

4530 ON IT(C-l)fl GOTO 4540.4540.4540,45 

40, 4570, 4570. 4570. 4570. 4560. 4560, 4560. 45 

60, 4550 

4540 GOSUB 4700:M$=iN$ ( iT(C-l) ) +" 9 Xr^ : 

GOSUB 4600: GOTO 4000 

4550 M$=" U-\',tvA- y 31/? XftvJis ayjj" :GOSUB~ 

4600: GOTO 4000 
4560 ST=ST-IE(IT(C-1)) :GOSUB 3600:GOTO 4 
540 

4570 DF=DF-IE(IT(C-1)} :GOSUB 3600:GOTO 4- 
540 - 
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4680 DY=0:GOSUB 3SfB0 :GOSUB 31Br^:G0SUB 10 


7220 FOR 1=0 TO 11: IF MID$ (TF$ (TW) . I +1, 1 




000 


)="1" THEN IL(IB)=I :IB=IB+1 




4610 GOSUB 6100: GOTO 3400 


7230 NEXT I 




4700 ' 


7240 M$=" K -)?' t^ a'^aV. " : GOSUB 3000 




. 4710 1M=IM-1 


7250 IF IB=0 GOTO 7300 




n 4720 !F lM-C-2 THEN RETURN 


7255 M$="3' a-^A fyf' Xi)r- :G0SUB 3000 




- 4730 FOR I=C TO IM: IT (I-l) =IT (I ) :NEXT:GO 


7260 LOCATE 1.3: PR I NT" *J^" 




TO 3200 


7270 LOCATE 1.4:PRINr W 




4800 ' 


7280 CY=0:CX=1;CA=3:CM=1:GOSUB 1500 




4810 LOCATE 1. 11 ^PRINT-'r-ffA ?" 


7290 ON C+1 GOTO 7490.7300,7390 




4820 LOCATE 1,12:PRINT" Vil^" 


7300 IF IM=0 THEN M$="t-t t^ff n^^r U 




4830 LOCATE 1,13: PRINT" XfJl'" 


' . " : GOSUB 3000: GOTO 7440 




4840 CY=0:CX=1:CA=12:CM=1:GOTO 1500 


7305 GOSUB 7900:M$="'t-f •>'J-t7^'7X;$?" :GOSU 




5000 LOCATE 1 , 1 


B 3000 




5010 FOR l-Y-4 TO Y+4 


7310 GOSUB 3300: IF C=0 GOTO 7440 




5020 PRINTTAB(l) ;MID$(MA$(I) ,X-4.9) 


7320 S=INT(IP(IT(C-l))/2) 




5030 NEXT I 


7321 IF S=0 THEN M$="yW\f9»h t=tM/7*y. " :G 




5050 RETURN 


OSUB 3000: GOTO 7440 




6000 ■ 


7322 M$= IN$ ( IT (C-1) ) \" is" fSTRS (S) +" GOLDf 




6005 EN=VAL (" &H" f CHRS (VPEEK (feH8FFFfY*64f 


X, ■' : GOSUB 3000 




X)))-1:IF EN<0 THEN RETURN 


7330 M$="3nHfX*?" : GOSUB 3000 




6010 EH=EH{EN) + INT(RND{1)*EH(EN)*. 1) 


7340 CC=C: GOSUB 8000 




6020 ES=ES(EN)+INT{RND(1)*ES(EN)*. 1) 


7370 GOSUB 3400: GOSUB 7900: IF COl GOTO 




6030 EF=EF(EN)f INT(RND(1)*EF(EN)*. 1) 


7440 




6040 ED=ED(EN)-l-INT(RND(l)*ED(EN)*. 1) 


7371 IF IT(CC-1)>3 AND IT(CC-1)<8 THEN D 




6060 GOSUB 2000 


F=DF-IE(IT(CC-1)) :GOSUB 3600:GOTO 7373 




6070 GOSUB 10000 


7372 IF IT(CC-1)>7 AND IT(CC-1)<12 THEN 




6080 ' 


ST-ST-IE(1T(CC-1)) iGOSUB 3600 




6100 FOR 1=10 TO 16:L0CATE 0, i :PRINTSPAC 


7373 C=CC: GOSUB 4700 : GP=GP-I-S : GOSUB 3600: 




E$(15) ; iNEXT 


M$="r'J*' V^ 3' r ^-7^9, " :GOSUB 3000 




6110 RETURN 


7380 GOTO 7440 


rime ' 


7390 GOSUB 7900:M$="t-? itMJr =-n^Xii7" iG 




^ 7010 FOR i=l TO 9:L0CATE 1. I :PRINTSPACE$ 


OSUB 3000 




(9) ; :NEXT 1 


7400 FOR I-l TO IB:LOCATE 1, I+2;PRINTIN$ 




7020 GOSUB 10000 :DY=0 


(IL(I-1))-I-SPACE$(10-LEN(IN$(IL(I-1)))) ;M 




7030 PUT SPRITE 0, (0,208) 


ID$(STR$(IP(IL(i-l))),2) ; :NEXT I 




7040 FOR 1=0 TO 5 


7401 CY=0:CX=0:CA=3:CM=IB-1:GOSUB 1500 




7050 IF Y=TY{1) THEN TW=I:GOTO 7100 


7402 IF C=0 GOTO 7440 




' 7060 NEXT I 


7403 IF GP<IP(IL(C-1)) THEN m="r >i-yf X 




1 7065 LOCATE 1,1:PRINT TW$(6): 


n' iiiW ?'J7-fe:^. " : GOSUB 3000: GOTO 7440 




" 7070 m="\V /9nMP' yfcttt(n-3fcMi5 tt":GO 


7404 IF IL(C-1)<4 OR 1L(C-1)>7 GOTO 7413 




SUB 3000 


7405 IF IM=0 GOTO 7412 




7075 M$=" jfiif. X< liSr tt' Doixfc" :GOS 


7406 FOR CI=1 TO IM;IF IT(CI-1)<4 OR IT( 




UB 3000 


CI-1)>7 THEN NEXT CI:GOTO 7412 




7080 M$=" fc«3t' 5r. licl fciit *>Li6>' t" :G0 


7407 IF IL(C-1) = IT(CI-1) THEN M$-"f7 iffv 




SUB 3000 


' iJ9 iffi^yVn^3f;f Xf . ■' :GOSUB 3000:GOTO 74 




7085 M$=" iitti^?" : GOSUB 3000:GOSUB 


40 




3100 


7408 IF IL(C-1)<IT(CI-1) THEN M$="t?f'(^* 




7090 EN=10:BO-1:GOSUB 6010 


■ ^r 9 :iify Vf^f Xi). " : GOSUB 3000: GOTO 744 




7095 IF BO THEN BO=0:GOTO 7170 ELSE RUN" 







ENDING. BAS" 


7409 GOSUB 7900:M$=IN$ (IL (C-1) ) +"f X+" :G 




7100 LOCATE 1,1:PRINT TW$(TW): 


OSUB 3000:S=INT(IP(IT(CI-1) )/2) :M$="f A 




7110 LOCATE 1.3:PRINT" ?f? r A'" 


'(7t7f^/»' " + IN$(IT(CI-1))+"?" :GOSUB 3000:M 




7120 LOCATE 1.4:PRINT" K •)?' A-N ^?" 


$=STR$(S)+"GOLDf n=th'Jy7X. " :GOSUB 3000:M 




7130 LOCATE 1.5:PR1NT" +h' tN -f?" 


S^'-i^f Xii 7" -.GOSm 3000 




7135 LOCATE 1.6:PRINT" AfX" 


7410 CC-C: GOSUB 8000 




7140 CY=0:CX=1:CA=3:CM=3 


7411 IF C=l THEN GP=GP-IP (IL (CC-1) > f S;DF 




7150 GOSUB 1500: IF C=0 GOTO 7150 


=DF-IE(IT(Ci-l))+IE(IL(CC-l)) :IT(CI-1)=I 




7160 ON C GOTO 7170.7200,7500.7700 


L(CC-1):GOTO 7435 ELSE 7440 




7170 GOSUB 7900: GOSUB 10000: GOSUB 5000 :P 


7412 GOSUB 7900:M$=1N$(IL(C-1))+"T 30H 




UT SPRITE 0, (48,39) . 1,4:PUT SPRITE 1. (48 


f;^*?": GOSUB 3000 :CC=C: GOSUB 8000; IF C=l 




.39), 11. 5: GOTO 4000 


THEN IT(IM) = IL(CC-1) : IM=IM-H :GP=GP- IP ( I 




^ 7200 ' 


L(CC-l)) :DF=DF+IE(1L(CC-1)) :GOTO 7435 EL 


; 


1 7210 IB=0:GOSUB 7900 


SE 7440 


I 
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7413 IF IL(C-1)<8 OR IL(C-1)>11 GOTO 742 
2 

7414 IF IM=0 GOTO 7421 

7415 FOR CI=1 TO IM:IF ITiCI-lXS OR IT< 
CI-1)>11 THEN NEXT CI:GOTO 7421 

7416 IF 1L(C-1)-IT(C1-1) THEN M$="t'> ^fy 
' t/? iffy^yVii^aW X*' . " ;GOSUB 300jff:GOTO 74 
4B 

7417 IF IL(C-1)<IT{CI-1) THEN m-"i'rH^7 
' 4r? a^fy \f^r ^H. " iGOSUB 3jffffJ0f:GOTO 7440 

7418 GOSUB 7900:M$=IN$(IL(C-l))+"f :t*" :G 
OSUB 3000:S=INT(IP(IT(CI-l))/2) :M$="f A 
'f-7*7f'ffl' "+IN$(IT(CI-l))+"7" :GOSUB 3000:M 
$=STR$(S)+"GOLDf :tt^f'Jy7A. " :GOSUB 300J0f:M 
%=" ^ 'i r Xil7" iGOSm 3BB0 

7419 CC=C: GOSUB 8000 

7420 IF C=l THEN GP=GP~IP < IL (CC-l) ) 4-S:ST 
=ST-IE{IT(CI~l))f IE(iL(CC-l)) : IT (C 1-1)=! 
L(CC-1):G0T0 7435 ELSE 7440 

7421 GOSUB 7900:M$=IN$(IL(C-l))-l-"f 3DH 
f ;^+?":GOSUB 3000 :CC=C: GOSUB 8000: IF C=l 

THEN IT{IM)=IL<CC-1) : IM=IM+1 ;GP=GP-iP (1 
L(CC-l) ) :ST=ST+IE(IL(CC-1)) :GOTO 7435 EL 
BE 7440 

7422 IF IM=8 THEN m="ifi/il' -t^A" -{/ 3W 
X. ":GOSUB 3000:M$="')rt';$ XfJ^J&i'f?r ■?'(." :GOS 
UB 3000: GOTO 7440 

7423 GOSUB 7900:M$=IN$ (IL (C-1) ) f'f 3Uy^ 
T X+?" : GOSUB 3000 

7424 CC=C: GOSUB 8000 

7430 IF C=l THEN IT<IM) =IL (CC-1) : IM=IM+1 

:GP=GP-IP(IL(CC-1)) 

7435 GOSUB 3200: GOSUB 3600:M$="rU*' h-? 3' 

r ^-^yf. " : GOSUB 3000 

7440 GOSUB 7900 :M$= ■'*;&- 3' H-^A r'iTX*?" :G0 

SUB 3000 

7450 GOSUB 8000 

7480 GOSUB 7900: IF C=l GOTO 7255 

7490 M$="7?/ t3y? if7fi/fp}-7X," :GOS\}B 3000 

:GOTO 7100 

7500 ■ 

7510 GOSUB 7900 

7520 m="9V V Y/ tK f\ a-^aV. " :GOSUB 3000 

7530 M$-" tt-A- y" f STR$ (TH (TW) ) f 'GOLDf X. " : 

GOSUB 3000:M$="*h7'j:: t'j7XA?" : GOSUB 3000 

7540 GOSUB 8000 

7570 IF C-0 OR C-2 THEN M$=" yjf X;J. yi/f A 

*^?7yf. ": GOSUB 3000:GOTO 7100 
7580 IF GP<TH{TW) THEN m=" f yi-Vr Xii' iil 
+J$' 9n^3W X. " :GOSUB 3000:GOTO 7100 
7590 M$=''f' A 3' Xf^*)- • ■" : GOSUB 3000:GP=GP 
-TH(TW) :HP=HM 

7600 GOSUB 3 100: GOSUB 3600 
7610 M$="*A3i) 3'r -17;^. '■:GOSUB 3000:M$='*4 
9Vff '(7f7-?^t'fV-fe. " :GOSUB 3000:GOTO 7100 
7700 IF IV=0 AND TW=4 GOTO 7740 
7710 M$=MS$(TW*2) :GOSUB 3000 
7720 M$=MS$(TW*2-»-l) : GOSUB 3000 
7730 GOTO 7100 

7740 M$="7*-?lc:^^ V yr yvi i^bot/^f p' " :go 

SUB 3000 

7750 M$=" fek^tt \^t,hit>i> S»fe±. ":GOSUB 3 

000 

7760 IF IM=8 THEN M$=" 7*-? f ■ • • k fcfcofcjS'' 



t^lh^k^, i" :GOSUB 3000:GOTO 7100 

7770 IT(IM)=12:IM=IM+1:G0SUB 3200:IV=1:G 

OTO 7100 

7900 FOR 1=3 TO 10: LOCATE 0. I :PRINTSPACE 

$(16) ; :NEXT I :RETURN 

8000 LOCATE 1,3: PR I NT" A-f" 

8010 LOCATE 1.4:PRINT" -f-fx" 

8020 CY=0:CX=1:CA=3:CM=1:GOTO 1500 

10000 LOCATE 0, 17 

10010 PRINT" I : ■ '■ 

10020 FOR 1=1 TO 5 

10030 PRINT" r ;SPACE$(28) ;" I" ; 

10040 NEXT 

10050 PRINT" ' 

~" ; :VPOKE BASE (5) ■1-&H2FE. &H1B 

10060 RETURN 

30000 ■ 

30005 DATA *<^ 1,5.0 

30010 DATA ^<ti2.20.0 

30015 DATA J?<fnurboR,50.0 

30020 DATA ia5<^Lfc.50,0 

30025 DATA *W«)ifob. 10, 5 

30030 DATA ifmtbl,3e, 10 

30035 DATA To«ifcL.100. 20 

30040 DATA yi6'')«ifeL.500.50 

30045 DATA <' U,15. 5 

30050 DATA Pi'T^t^ .A!S,\e\ 

30055 DATA TO(^K*. 200, 20 

30060 DATA Vi^OfOan. 1000.50 

30065 DATA f -X<^' yr >h.0.0 

30100 ' 

30110 ' NAME HP STR 

DEF DEX EXP GOLD 

30120 DATA X'Jt-A. 10, 1- 

1, 1. 1. 1 

30130 DATA 3*' W . 15. 3, 

3. 3, 2. 2 

30140 DATA Ka-fl-, 25, 8. 

8. 8. 4. 4 

30150 DATA iV-' AO^*. 30. 13. 

13, 12. 7, 8 

30160 DATA 5bV*©?i9V\ 40, 18. 1 

8. 14. 10. 15 

30170 DATA 7yf<3r, 50. 24. 

24. 20. 20. 30 

30180 DATA IJ9*}XXX, bfS, 28. 

30, 26. 30, 50 

30190 DATA tV^'^aX, 70, 32, 

36. 32, 50. 80 

30200 DATA V 53' y. 80. 36. 

42. 36. 80. 120 

30210 DATA 7' 77?iit*»^. 90. 40. 

48. 40, 100, 200 

30220 DATA i)fcli^t' ;(?. 200, 44, 

54. 44. 10000. 10000 

31000 ' 

31010 DATA 5.12,22.35.50 

31020 DATA 70,100.140.190.250 

31030 DATA 320,400.500.640.800 

31040 DATA 1000,1300.1700.2200,2800 

31050 DATA 3500,4300,5200.6200.7500 

31060 DATA 8000,8600.9500,10500.12000 

31070 DATA 14000,16500,19500.23000,27000 
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7a^5H>^.=»[ 



1 31080 DATA 


32000 


1210 


DATA 


" 5:Cft> 1^£iX ^h^r , ftt:*' Vto (nr tr 


I 32000 • 




1220 


DATA 


" ft** twtt: I is^w wim. ft' ftL' ♦ 


! 32010 DATA 


^^-fXi^y 3*7, 2, 1000100010 


1230 


DATA 


" f .J 


00.53,8 




1240 


DATA 


■' i"r' ii r 'jytxwdt i>fcLt iif i\\ j 


32020 DATA 


t^fTyy -i. 5, 10011100100 


1250 


DATA 


" ffeii. -eatiiki J>^i>' iv ^, i,u*> uo 


0.9. 13 




1260 


DATA 


" %' ¥ X' %hx' «. r ry^xwm. t' 5 


3203B; DATA 


fH' 9ffy, 10. 1101010011 


1270 


DATA 


" I* +?j 


00,9.38 




1280 


DATA 


" ffotL---j 


32040 DATA 


^fit' t-b' . 20, 1101011001 


1290 


DATA 


" r vy'e.xvm. atit*i*iift iwfc. 


00.51,19 




1300 


DATA 


"^btl--- HofHfcyi:*'' t?40. i' ft^ 


32050 DATA 


-f-fr A' i/f4. 50. 11110010011 


1310 


DATA 


" 45KJ 


0.58,21 




1320 


DATA 




32060 DATA 


■i^r ?a-K . 100. 0111000100 


1330 


DATA 


" ft*<u.^y?' r Aii5i<c M^ft*' tf 


01.22.57 




1340 


DATA 


"ojt.^e^wr i>^¥(i r ^X',ynh -^^ 


32070 DATA 


9'7-Jh*f, B, 0000000000 


1350 


DATA 


"xn^tin^w tfr'fc**' *r.fcWifc'*Lfc L^ 


00. 10.52 




1360 


DATA 


"4v^ 


33000 DATA 


"^yr hj iy ry^xj}ih¥ ^tybtix li->t 


1370 


DATA 


" 


33010 DATA 


^h^^. i 


1380 


DATA 


" THE END 


33020 DATA 


"ihrnt^t-iii' Jt^htmn' fii'f^v 


1390 


DATA 


" 


33030 DATA 


¥ Ub.i 


1400 


DATA 


n 


33040 DATA 


"thmt^W Lt U liLJi)fc->fc^ Jfct 


1410 


DATA 


" --- STAFF - — 


33050 DATA 


liitli' AfH' "f-y i. 


1420 


DATA 




33060 DATA 


" thmt^f ~xff)\- vr yv¥ t£\^i. ^t' 


1430 


DATA 


"* Director 


33070 DATA 


;(ftti mti\^i, J 


1440 


DATA 


Lucky 


' 33080 DATA 


"7*-?rv vr >hU *ttwT<*i3t4'V»?j 


1450 


DATA 


" 


33090 DATA 




1460 


DATA 


"* Game Design 


33100 DATA 


"thmt MO' A' yfit^ ii^WnliW^ 


1470 


DATA 


Lucky 


33110 DATA 


ifU ^-h' m %Hii: I, J 


1480 


DATA 


" 






1490 


DATA 


"* Scenario 






1500 


DATA 


Lucky 






1510 


DATA 


" 


^ ENDING. BAS 


1520 
1530 
1540 


DATA 
DATA 
DATA 


"* Programmer 
Lucky 


- 10 SCREEN 


5:C0L0R 15,0.0 


1550 


DATA 


"* Graphic Design 


20 OPEN"grp:"AS #1 


1560 


DATA 


" Lucky 


30 Y=0 




1570 


DATA 


" 


40 READ A$ 


:IF A$="*" GOTO 80 


1580 


DATA 


"* Music Compose 


50 PSET(8. 


192).0:PRINT#1.A$ 


1590 


DATA 


" Lucky 


60 FOR 1=1 


TO 8:C0PY(8, 2)-(247.201)TO(8, 


1600 


DATA 


» 


0) :NEXT I 




1610 


DATA 


"* Sound Effect 


70 GOTO 40 




1620 


DATA 


Lucky 


80 GOTO 80 




1630 


DATA 


" 


1000 DATA 


" V7X*^nili ^t' in fcfeL r ry^x 


1640 


DATA 


" * Spec i a 1 thanks to 


1010 DATA 


'IW)t fttttSitt tv^ioLfc. 


1650 


DATA 


" ^^L•3L♦ L 


1020 DATA 


" 7' 'jytxiwj vwfc. 


1660 


DATA 


" Jina^l^r-7- 


1030 DATA 


' fi>3tL ^^^^Ofc hH' t>\^t' -yth ZW ft* 


1670 


DATA 


" *ft't' -3 s^hia 


1040 DATA 


' t v-t<niiiiu,t' nth ft^iti^t n 


1680 


DATA 


" *£p<r)<iiPl 


1050 DATA 


' b.hw ti 77Xfl'iin^s^. J 


1690 


DATA 


" 


1060 DATA 


" WW) t:W Lt=t Uht IA4»Wv^ft ^^X 


1700 


DATA 


Thank you for your playing! 


1070 DATA 


>fet*»iti hi^t^Jit' If' . 


1710 


DATA 


" 


1080 DATA 


" fv^. I*?ii' L' ftfe ttiT' vui/^' i. j 


1720 


DATA 


" Copyright (c) 1991 ASCII Co. 


1090 DATA 


'k iV tftfi WW) iiiikt: ytO i'^-O 


1730 


DATA 


" Presented by MSX7*' •/' > 


1100 DATA 


"t^^ ifctLt. 


1740 


DATA 


" 


1110 DATA 


■ ■ ■ - tH* or . v^xA'fit*.^*' ^^-^ fc 


1750 


DATA 


If 


r 1120 DATA 


"3<9 fctt t^>&^tfcoT *iii)ftfc. 


1760 


DATA 


" 


i 1130 DATA 


" r^ftli iyxf-i'h ft-tkofc Jift'iiT' t. Cift 


1770 


DATA 


" 


i 1140 DATA 


" 1 Ur>*X,t *Tt<t' 5K J 


1780 


DATA 


" 


'■' 1150 DATA 


■ ^m vwfc. 


1790 


DATA 


" 


1160 DATA 


' ^m, v^xfl-fcttu. 7" yytxw')^ fcttt 


1800 


DATA 


" 


1170 DATA 


" r<*i]t(i' frOT' U4< Lt'>iur fi^tfr' 


1810 


DATA 


" 


1180 DATA 


" bnxiiiht \^o<^. I' t\^1p' V t\^l' t 


1820 


DATA 


" 


1190 DATA 


■ ^t, hWt< \^tt: itar . ifb^th. 


1830 


DATA 


" 


1200 DATA 


• kwtlj Ufc' ¥ bU fifc^ «^' At 


1840 


DATA 


* 
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MSX turbo R 

PC-98Dl^SL;«>tf§32tf'>S-\i>lBe*:/KV*^>ix 

MSxyv•v=l>^l5|K[zffio■e:L^sA=biix.■cL^•Scfc3 



\SX-DOSt'e>(D 



MSX-D0SOT7°P^'^A;:»<yi; > 
9—^i^n /zif)(z(J. BDOSu-^u 
<7)05H(zJ;^:^>ii:. *PRN*^^.^ 







Library* (;)'lptout''g3|g[^fg^ T. 
ROM-BIOS?:!!? t/WryP ^'7 A 

?^Us ^Ia]OTyp^vA-C(i. 
R0M-BI0Sj5<^7'^;^-<-;^(C^ 

■>7 h JIS^-§-^ jis^-§-n^^r 



^Sl^ 



PRINTER H 



/» 




• 


printer, h 


* 


(C) 1991 Ishikaia 


* 


free to use and copy without warranty 


» 


on 2Z. Jan. 1991 by nao-l 


*/ 




#ifndef PRINTER H 


#define PEINTERJ 


tifndef LS[C 


^define void char 


#endif 


/* 151 C */ 


«fdef 


DSE_PROT0T¥PE 


void 


openprn(void); 


void 


putcprn(int iCode); 


void 


clos^rn(void); 


void 


putsprn(const char *); 


void 


put snprn (const char *, int); 


#else 


/♦ USEJSOTOTYPE */ 


void 


openprnO; 


void 


pntcprnO; 


void 


closeprnO : 


void 


putsprnO; 


void 


putenprnO ; 


Sendif 


/* USE^PROTOTYPE */ 


lendif 


/* PRINTERS */ 



4|i^MSXPRN. C 



isxprn. c : 

functions to control printer on MSX-MS 

(C) 1991 ishikawa 

free to use and copy without warranty 

on 19. Jan. 1991 by nao-i 



finclude <stdio, h> 
finclude <isxbios. b> 
Mefine RAfPRT HitAlB 



VOID putcprn(iCode) 
int iCode; 



if (Iptout((chBr)iCode» I 

fputs('Aborted.yn', stderr); 
eiitd): 



VOID c^tenpmO 

( 

•((char*)EAfPKT) = 1; 
I 

VOID CloseprnO 

i 

♦((cliar*)EAWPET) = Jf; 
I 



VOID putspmCpcString) 

char *pcString; 

I 

while (tpcString) I 

putcpm({fnt)*pcStrlng) ; 

pcStrinsH-: 



VOID putsnpTn(pcString, iCotmter) 
char *pcString: 
int iCounten 
I 

while (ICounter) I 

putcprn({int)*pcString) ; 
pcString«: 
— iCounter: 
I 





/r/u., _^ — --- 




;:^xA'7-^XUr(7)F416H#m 
(RAWPRT)(Z 1 ^»#iA<i^. Ztlh 

A*\ U :^ h 1 WPRINTER.H''t 

yij >:S'-sijffli(7)yp:r7AA<, 

"i-fmiz^ <ti:-oXLt'o tzmm 

m^ (C. 01H(CSc<41H-'5FHc7) 

t'^m^i"^M<r)Z^u h^'^7 

IS2{-s 80H~9FHi:, EOH— 
-f^N'-A^'*5)*-^(Cli>-7 hJIS 

h. SABFHiri^-? 2/W h(i, ill 

mxit^M''t^^ri 15:^(7)31^ 

tii-^mt>LX\.^^. 
M3(z. MSX-cc7)7-i":/7iJ- 

(Cti. \/erA.2X'iim^^itimX$ 
^tm^'X$i^izh^^/}^ioht. 

lb 5r i -S-T-f^^ fi^^^& -D tz. 
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•-f7:»h/s;iiau8 



T<7-*Jb-7tUS/X 



ij 7. h 4 <75*READMSX.C^ MSX 

:S::^:;^-^ T- $) ■S *EUC(extended 
UNIX code)" ^v-^T, lf#^^B 
^(ZfFT/i*EMC{extended MSX 
code)" i: l^ 5C?:i^(-S^ L T 

a h i)^f£ ^ g id^yJSiJ-r 5) z ^ ti^ 
c;3'isMSxr*^0'j:^U-3l^^ 0^:;. 



^^emcTh 




A 
* 

« 

t 
* 

« 

* 

* 

* 

*/ 

Sifndef 

#define 

typedef 

typedef 

JifRdef 

tifdef 

int 



lelse /* RBAMBX^C «/ 
exterR int errno: 
tendif /♦ SEADMSX.C »/ 
#endif /* HSDOS ♦/ 
Sdefine EiLSEQ 12S 
tdeflne KSXGSPEEAD 1 



eic. h : extended )CX character code 
(C) 1991 lEhikaia 

free to use and copy lithout warranty 
on 2Z. Jan, 1991 by nao~i 



bis 



wr 

?)ixxxitiJi ASCII 

Uxxxxxt Ixxxxxxx Kanjl (JIS code I 9xZgm 

(1991900 Ixxxxxxx Kana 

19999009 ET^ffxxxxx lilSX Hiragana 

10000900 JWxxxxx »SX Z bytes graphic 

10990090 ^Uxxxxx MSX Hiragana 



EMCJ 

EliKJ 

ynsigned 

chat 

MSDOS 

EEAI»BX_C 

errno: 




ichar_t, ushort; 
uchar, liny: 



Mefine getwc(pf) fgetic(pf) 


Sdefine 


getwcharC) f^t«c(stdin> 


tifdef 


HEADMSXC 


char 


isKSXl = 0: 


tfetse 


/* REAMBX.C ♦/ 


extern 


char isKSXl: 


Sendif 


/* BEAiaiSX_C */ 


#ifdef 


USE PROTOTYPE 


int 


fgetwc(FiLE t); 


ushort 


hantojis{uchar): 


vchar t 


■sxtozen(wchar t)i 


ietse 


/* USE PROTOTYPE */ 


int 


fgetfcO; 


ushort 


hantojisOi 


tchar 


isxtozenO; 


tendif 


/* USE.PHOTOTYPE */ 


jendif 


/» sue J */ 



^^READMSXTC 



readisx. c : read and convert HSX character code 

(C) 1991 Ishiliawa; free to use and copy lithout tarranty 

on 22. Jan. 1991 by nao~i 

see eK. h for extended KSX character code 



* 
* 

' » 

t 

*/ 

tinclTide <stdio.h> 
Sdefine BEAaBX„C 
(include "esch' 

Sdefine isasciKc) ((c) <= |x7f) 

Sdefine iskana(e) OJxa? <= (c) U (c) <= ?xdf) 

Sdefine iskanjiW «(xBl<={c) 6i (c)<=?x9f M toeff<=(c) fi& (c)<=(fxec) 

#define iskanii2{c) «x4?<={c) M (c)<-?x7e || ?x8J«=(c) 61 {c)<=(Jxfc) 



/* 

* 

*/ 
int 
PILE 



/» 

* 

V 

ushort istoils(usMS) 
ushort usHS; 
\ 

uchar 



COTvert MS (sift JIS) lanji code to JIS Kanji code 



ucHi, ucLo: 



UcBi - (uchar) (usHS » 8) : 
if (ucHi <* 9^VS) I 

return tisMS; 
1 
if CucBi < ?xaff) ( 

UcHl -' ?x7)f; 
1 else if (ucHi < tfxfW \ 

ucBi - ?xb?; 
I 

ucBi «- 1; 
uclo " (ucbar)u^; 
if {ucto >■ JxBin \ 

ucixi— ; 

1 

if {ucLo >- h9e) 1 

ucLo -= (fxSe: 
} else ( 

ucHi— : 
I 



get a EMC froi file 

fget«c(pFILE) 
♦rfflLE; 

int iPirst, iSecond; 

If {<iFirst = getc([*ILE)) " EOF) 1 

return EOF; 
I else if CiFirst == ICXGRPHEAD) I 

if UfxW <= {iSecond = getc(iflLE)) 16 iSecond <= BxSf) 

return ^xSjfM 1 iSecond; 
I else I 

errno = EILSEQ: 
return EOF; 
I 
I else if (isasciidFirst) II iskanafiPirst)) { 

return iFirst; 
I else if (isHSXl) ( 

return 9i.%0%9 ' iFirst; /* \0990990 Jxxxxxxx */ 
1 else if (iskanjidFirst)) ( 
iSecond = getc{pFlLE); 
if (iskanji2(iSecond)) \ 

return istojis^ iFirst « B) I (iSecond S ?xff)) 
I 0m%9: 
) else { 

errno = EILSEO; 
return EOF: 
1 




else 



errno = EILSEQ: 
return EOF; 



return (( (ushort) ucBi « 8) I (ucLo - ?xlf)); 



/» 
t convert Bankaku (ASCII or Kana) to Zenkaiiu JIS code 

»/ 

ushort hantoiiE(ucCode) 
uchar ucCode: 

static ushort ausAipha[96] = I 

((x2121. ffx212a. i:fx2149, ?xZ174. ?x217?, ?x2173, 0x2175. 0x2U7. 

0x214a. ?xZHb. «x2176. ?x21Sc. ?x2124. f(x215d. 0xZ12S. (fxZlSf. 

(fx233?. 0x2331, (1x2332. 0x2333. 0x2331. 0x233S. 0x2336. 0x2337. 

0x2338. 0x2339. 0x2127, 0x2128. 0x2163. 0x2ISl. )Jx2164. 0x2129. 



&Vir\-v^ 
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©Iu'^:-i;«i:i0 



9x2348, 
0x2350. 
0x2 3S8. 
0x212e. 
0x2368. 
0x2370, 
0x2 37S. 



0x2341. 
0x2343, 

0X23S1. 
0x2353. 
0X23G1. 

0x2369, 
0x2371, 
0x2379. 



0x2342, 
0x234a. 
0x2352. 
0x235a. 

0x2362. 
0x236a. 
0x2372, 
0x23 Ta. 



static usbort 3uslana[64] = ( 

0x2121. 0x2123. 0x2156. 

0x2523. 0x2525, 0x2SZ7. 

0x213c. 0x2522. 0x2524, 

0x2S2f. 0x2531. 0x2533, 

0x25Sf. 0x2541. 0x2544. 

0I254<1, 0x2540. 0x254f. 

0x255f. 0x2560. 0xZ561. 

0x256a, 0x256b, 0x256c. 



0x2343. 

0x234b. 
0x2353, 
0x21 4e. 
0x2363. 
0x236b. 
0x2373, 
0x2150. 



0x2157. 
0x2529. 
0x2526, 
0x2535. 
0x2546. 
0x2552. 
0IZ5GZ, 
0x2S6<l. 



0X2344, 
0x234c, 
0x2354. 
0x216f, 
0x2364. 
0x236c. 
0x2374. 
0x2143, 



0x2122. 
0x2563. 
0x2528. 
0x2537, 
0x2543. 
0x2555. 
0x2564, 
0x258f. 



0x2345, 
0x234d, 
0x2355. 
0x214f, 
0x2365. 
0x236d, 
0x2375, 
0x2151, 



0x2126. 
0x2565. 
0x252a. 
0x2539. 
0x2 54a. 
0x2558. 
0x2566, 
0x2513. 



0x2346, 
0x234e. 
0x2356. 
0x2130, 
0x2366, 
0x236e, 
0x2376. 
0x2131. 



0x2572. 
0x2567. 
0x25 2b. 
0x253b. 
0x254b. 
0x2S5b. 
0x2568. 
0x212b. 



0x2347. 
0x234f, 
0x2357, 
0x2132, 
0x2367, 
0x236f, 
0x2377, 
0x2121 



0x2521, 
0x2543, 
0x262(1. 
0x25 3d. 
0x254c. 
0x255e, 
0x2563. 
0x2t2c 



if (0x20 <= BcCoda && ucCode <= 0x7f) { 
return ausAlf*a[ucCode - 0x20]; 

} else if (0xa0 <= ucCtode U ueCode <= 0xdf) 
return ausKana[ucCode - 0xa0]; 

) else I 

return 0: 



/♦ 

• convert EMC to Zenkaku 

•/ 

vcbar.t isxtozen{iCode) 
tchar_t iCode; 



/* ASCI 1 
/* Kana 



*/ 
*/ 



/* Iprintable */ 




static ichar.t a»c!ilSXGrp[32] ' I 

0x2121, 0x376e. 0x3250, 0x3f6S. 0x4cSa. 0x3662. 0x455a. 0x467c. 

0x472r. 0x315f. 0x3b7e. 0x4a2c, 0x4943, 0x4934. 0x4063. 0x4b7c, 

0x2650. 0x2823. 0x2828. 0x2829. 0x2827. 0x282b. 0x2822, 0x2821. 

0x2823. 0x2824. 0x2826. 0x2825, 0x21 5f. 0x4267, 0x4366, 0x3e2e 



static fchaO a«cliBXHiraU32] 
0x2225, 0x2227. 0x2223, 
0x2423. 0x2425. 0x2427. 
0x2121, 0x2422. 0x2424. 
0x242f, 0x2431, 0x2433, 



I: 

static 



): 



int atcMS)[Hira2[32] 

0x243r. 0x2441. 0x2444. 

0x244d. 0x244e. 0x244f. 

0x245f, 0x2460. 0x2461. 

0x246a. 0x246b. 0x246c. 



0x2221, 
0x2429. 
0X2426. 
0x2435. 



0x2446. 
0x2452, 
0x2462, 
0x246d, 



0x2 17b. 
0x2463. 
0x2426, 
0x2437, 



0x2448. 
0x2455. 
0x2464, 
0x246 f. 



0x21 7c. 
0x2465, 
0x242a, 
0x2439. 



0x244a. 
0x2458. 
0x2466, 
0x2473. 



0x2472. 0x2421, 

0x2467. 0x2443. 

0x242b. 0x242d. 

0x243b. 0x24!d 



0x244b. 0x244c. 

0x245b. 0x245e. 

0x2468, 0x2469. 

0x2121. 0x2121 



/» lanji 

/* ASCI I or Kana 



if {{iCode & 0x8080) -= 0x8080) ( 

return iCode; 
i else if ((»Code & 0xff00) « 0) { 

return hantoi{s({ucliar)fCode) | 
I else if ((iCode k 0xffB0) t^ 0x8000) 

errno = ElLSKl: 

return 0; 
} else I 

uehar ucCode; 



if ({ucCode = {uchar)irCode) <= 0xlf) f 

return atcMSXHiral [ucCode]; 
) else if (0x60 <= ucCode) ! 

return a»c)ilSja)ira2[ucCode - 0x60]; 
1 else if (0x40 <= ucCode) { 

return awcMSXCrpfucCkide - 0x40] ; 
I else I 

ermo = EILSEQ; 

return 0; 
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U:^ h 5ff)'MSXBJ10V.C*[i. 
-J h7°U>^-, BJ-10vffl{;)yp 

-(3 fe>[^fST-S -5 J: T HfF^T$) 

:^^-XiXmt^ZttLtz. 
?^ MSX BJ-lOv 

80H :^^— K ▲ 
81H /\-h T 
82H ^57" ■ 
83H y-(V 4 

tz:^x\ Bj~mijmmLxi^ 



t(Diiz^ti^-m^^^xBt^^^ 
X(.-^^fy^hltiUi\ 



^ 



y 



\ 



yp 5^5 AC75 =] >/ \°-r JHZ(i. 
MSX-CVer.l.li/-{i1.2t. Zt 

'PRINTER.REL". *READMSX.REL' 
^LT*MSXBJ10V.REL"i:UT, , 

3 oc;) ij p &—^y'}[^y r -T )\'t^ 
f^hn^y\Xfi, "tix^vmtLfz 

h. U ^ h 6 c7)^)tlT'7 T^JU^ 
U>^t. -'MSXBJIOV.COM^^^T 

Btiumi&fz, 

•fs^L^:;^(i,*MSXBJ^ov <tzf'> 
3>> <yT'i)u^>''(7)}mxi^ 

-1 ^no^fi^tm^ 

- 2 ai^Ep^ 

(J. '-2 - t8*fj:-3TU.5.o 

[Z ( J[CIRL|=!r - 1 |SIOP)+ - ^fl-a- 




T0-i3}V'7t'Ji/7. 



iJi^MSXBJlDv. C 



■sxbjl^v.c : print MSX character code to CANOfi BJ-1|W printer 
(C) 1991 Ishikawa: free to use and copy ■ithout larranty 
on 22. Jan. 1991 by nao-i 



/* 
♦ 

I* 

I */ 

! tinclude <stdio.h> 

finclude <stdlib.h> 

^include <3tring.h> 

(define const 

tinciude 'enc. b" 

>jtinclude 'printer, h' 




void 
tFlLE 
■tiny 

i 



prFlle{pFIlE. iTabs) 

*pFILE; 

tTabs; 



static char 

0xlc, 

ffxlc, 

Jxlc. 

(Ixlc. 

■ ffxlb, 

static char 

0xlc. 

?xlc. 

gxfJcl 

static char 

static char 

static char 

int iCode 

tiny tCol: 



acSetp = 

ilxsa. s. z. 

0xSI. ff. I. 

?xS6, 
f!x2e. 
?x6c. «; 

acResE] ■ 
(fx53. 9. 3. 
?x2e. 

aciiln[] ■■ 
acHOatn 
acSp[] ' 



/* space before/after Zenkaku 
/* space before/after Hankaku 
/♦ no adjust after Bankaku 
/* begin Kanji 
/* left sargin 



*/ 
*/ 
*/ 
*/ 
*/ 



/* space before/after Zenkaku */ 
/* end KanJi */ 

/» foni feed */ 

: f^xlc. Mi. 0): 

= tfxic. 2x12, (fl ; 

Wxlc. Mi. ?x21. 8x21, ^xlc. ((xI2. fl ; 




openprnO: 

putsnprn{acSet, sizeof(acSet)); 
errno =0; 
tCol = 9: 

while {(iCode = fget«c(pPILE)) != EOF) ! 
if {(iCode k 9M^i) == M9^i) \ 

putcprn((iCode » 8) S8xTf); 
putcprndCode S 0x7f): 
tCol, += 2: 
) else if (iCode == 'Yn) ( 
putcprntfxffd); 
putcprnCUxffa): 
tCol = (f; 
} else if (iCode" "¥f} { 
do I 

putsprn(acSp); 
) while (++tCol K tTabs); 
) else 1 

int iElan; 



BSAVE "7 7-fJL'^",A 

KLTL^4'L^(tnt\ BJ-lOvcO^IJ 
T'^-l) VP-800i: (Strisl U J: T /Co 



IHan = ■sxtozen(iCode): 

putsprn(acKln): 

putcprn({iHan » 8) S 0xlf); 

putcprn(iBan & (fx7f): 

putsprii(acHOut): 

tCo!+t; 



^ 



if (ermo " BILSEQ) I 

fputsCUlegal code.Yn', stdeit); 

errno = 9: 
) 
putBnprn{acRes. sizeotCacHefi)): 

cioseprnO; 



int aainfargc, argv) 
int argc; 

char **argv; 

{ 

tiny tTabs; 

static char acUsaget] 

= "Usage : BsxbjWv [-11-2] [-tn] filenaie ...¥n"; 



tTabs = 8; 
»hile {— argc) 1 

if (tt+targv == ■-■) ( 

int iTabs; 



/♦ option 



•/ 



stitch (*(*argv + D) f 
case ■ r : 

isHSXl = 1; 

break: 
case ■ 2' : 

isMSX! = t: 

break: 

if (2 <= (iTabs = atoi{*argv + 2)) 
6& iTabs <= 16) i 

ITabs I (tiny)iTabs; 
I else { 

fprintf(stderr. "Bad tabs SdYn*. 

ITabs) ; 
exitd): 



) else ( 



default: 



break; 

fputs{acUsaBe. stderr); 

exitd): 

break; 




/* file name */ 



FILE 



*pF!LE; 



ift^/)^>btS. MSX-D0S2(=|^LT 

^nmmuz-:f') >^-vm-y°^ 

^^ A ^. NEC(7)PC-PR201 ■> 'J — 

^^-mt. t(ri\%t\ s5»T-t*J 



if ({pFlLE = fopen{targv. "r")) \= NULL) I 

prPile(pFlLE. tTabs): 
1 else 1 

fprintf (stderr. "Can not open 'Xs'Yn". 
*argv) ; 

exitd); 



1 
return 9: 



^B^LINKBJ. BAT 



m CK, MSXBJlffV. READMSX. MSXPRN, MSXBIOS/S 
.CLlB/S,C8UN/S,CEND,MSXBJlJ3fV/NA/E:XMAIN 
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A(!}/z^tftf^<4-U*Lfco 

mz $:-&mS(i*^x «■ f J /z t ^ t ,m 



■ ■ 

DTMFft-§-(J-g|?c7)A{Z t o T 
t(r)=^mTh%Wh^£K.^AX'h. B 

U\Wt[ts Dual Tone Multiple 
Frequency(7)ilHT% S^:|iT'(i. ^ 

^t LT, CCITT([S^mffmt^ 
fA*^'-c75DTMFf=-§-0^^i9]St) 



A'JU^£*<a/zUgfiT\ t13^^ 
iiLT^,^i-y-^T-L^Zo 

li^tSSiff L u t OT'& -7 fc C i: 
^■9i-mLX^X^Xh{tit\.^7Ls 



/ 1> 



mu^^p^MLxi^^tSis £1^9 

T-ZcT^DTMFfg-^^fFtJ Ui LTi.^ 
S(?5X-r„ 

■ ■ 

?T. lll^c7)Zc;5DTMFl=-§-(i, 

^ ) T'* -5 'J^^jtJ^'^ U J To *> J: ^ 

o tz^m^(r)m ',&m^^ cm^ 
«^^ mmizX'oX'.f^^^-^i)^^ 
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h-^^g. 



(,-fv^>)coie5ijT"ro i:--6;!)\ 

J^i^^T'To m?IJC7)697Hz(-^;U 
■y), 770Hz. 852Hz. 941Hz^1g^ 
mi&^. ^lJC7)1209Hz. 1336Hz. 
1477Hz. 1633Hz^Hl^iil;SiS[i: 

i^\,^tra zayi&m. w^mi^^ 

DTMFff-^'i<75X'-rc 

ik^ii. 697Hzi:l209Hz^<. 8^ 
ffLfc:*-^(J852Hzil336HzA^' 




£ -y ^ 7. ? n/z^^^^^r S C i: 

X 4 . O J tj 1 6^^(75ff -§-^^1 
-r ^ - ^ A^T' ^ 5 C t ^^:h:^^T T 



1 DTMF«^<!:+-i55y 



fa 



(Hz) 















697 


1 


2 


3 


A 




770 


4 


5 


6 


B 




852 


7 


8 


9 


C 




941 


* 





# 


D 




frmm 


1209 


1336 


1477 


1633 





+ 1.5 



(Hz) 



m m 

MSXrDTMRi^^ 

DTMFfs-^-^^^r-i. y P ^'^ A 

MSXH[i.^2pTPSG. 7°n^'^ 

vy;uHt't7>Kvx^^L — :$'—;: 

miti^^B^^PM^ nxi^tr. 

'yju> >'y)c;)AY-3-89l0^ L^^ 

■r^\ M&'^Msxxii.zomt'^^ 
h-^it>fzm-^m.mLs\^i^m l 

TV-^STo ttiL^;^. yp^'vA 

MSX2. MSX2+, MSX turbo ROTt' 

nx'h^^^iitxt. 

Xit. CZT'ffl*(cyP^'^A 
(7)iJiH^^ L i L J: 9 c PSGti. yP 

ykm.(nm^^mmz zm^t x-^ 

^^-^t^Ztlij^X^ito DTMF 

m^iittiizhmmuzuh'i). 2 
psGizit^^mmm^skmn^ 



- ^ (I J: o x^iM(Dm:&n<^m^ 
^n^^^izfi-yxi^s.r. t<D 

Wmzt£^m^,l5Mt. 1.7897725 
MHz(^:tf'^JU-y)'CT„ -^^^d:fii 

7 -TV^-§-C7>— ffiT* ^ NTSC:;^' 
^c;)Siit3 ^i- S 3 . 579545MHz ^ 
2 -J)^ 1 (C L fc t (ntS.<OXT^ Z. 
tl(SMSX2+iTWCPUc7)Svi^ 
P-y^tlfe^i-oTl^^-r. S^. 
MSX<75|*lg|ST'(J. RTCCJT'Jt'^'f 
A^ P -y ^ )J.:i:?fc7)S>$fS-§-(i-r 

^(i.32.768KHz{+P'-^^L.'y)T-1-. 
^T. ~(?)1.7897725MHztJ?K 

^^mmsizx i)f^<hti^m^^£(7) 

XMlibXJEmX'^'^LXX^^^Z t 
m^■h'hhinii^^Xl\z. i^m 

;^^, m^m^m^h^z^m^m 
m'.z[tzHh(7^m(Tm-mfmt± 

1.5/\°— tz> hiT'$)^c75T\697 
Hz T'686. 55—707. 46Hz. 770Hz 
T'758. 45-781. 55HztL^^fc a. 
^{zio^} tjK\.-^^m^^X':k 

jt^ Sipi^;^5B[X0.985T-*fi:) 

Sm^lj^^xi. 015;^^_LPBii];*^ 
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1&^JllLTm.86078125KHz^ 

^n^u-ix-r. 

697HzC7):^-a-[±160^Jll (Z^:^ 
LT. 11^(1(3699. 13Hz^^fjn 

tr. 770Hz(7)*^(i, u^mx- 

771 .45Hz,852Hz(7)it^{il31-^Jil 
T-853,9Hz. 94lHz(;)ii^(J11^ 
J^T-940H2. 1209HzcO:^^(i93^ 
;ilT-1202.80Hz. 1336Hz(75lta-(S 
84-5>jglT'1331.68H2, UnHz<r>m 
-&(i76^j§T-1471.85Hz, 1633Hz 
<7)%^(i69^i§T'1621 .17Hz*<^ 

htii>ztizf£i)tro ^tihit 

-^xi^it. 

T-fo miKj:^^(ifSoTi-^S-t+ 

^:^t•i.US-t+^o 110^280^T 
«v =^—Xtl:^=^^'>^n^4:^X 

Lxi'-fx^^ti^hx-rottz* ij-x 



\-^-ncn\^flifhX'U\.^}lX-h 
T-#S-ttAo CCOj:T(z-g|PT^ 

-^(jsjUsi-*^ ^~m\WM^ 

(zj;DUTzc;3Sls^(i^HLT^T 
+-A:'::^+ ■I' vt-^iiA (c(j|£ 

^m.^{z[t-mm.im.(r>iz^<n^ 
mm-W:M.^tvxf}-h. ^(nWi- 
{v:fji^^ >M^) *W(f n t r. 

^S¥J§;;S^A^ B ^ -i- >:f-.^t/T-ro 
c f^v >^;Ki^:®ffl i: 4'tTi^ 

tTo A^A'V^'-Jk B^-f>^^ 

US -To 

38{Wt@ (7) FOR—NEXT^b^DTMF 
f=-^^<t±JTL^5#rB^C75S? ^-^tlS 

LTi^iET„ mmiz^-Dxit. - 

■ ■ 

SOUNDX(COl^r 

yp ^ 7 A(;>4^T'J:t«cS^m^?:j: 

^^i:i-^;l(dr. S0UND3tT'Uj: 

9 . ii-^ti PLAY:S:X'^^<n;1lil*^ 




S0UND5:?-fS9 ~i:(Zj:fJ. PSG 

^zt^^X'^^ayX'to 

S0UND5:(i. PSG(7>\^mz$3i> 

1 6^?^(7:) u- V :^ :? — {z / \° "7 y — 

mm'^tLxmz.:L^t^t:')f3-^ 

Uth^^i t LT 1--'4095iT- 

OTiEHT'^^^fiD^^fi^ 3 ^ 
-V >^*-JU'<0'xo(z|£:^ L fc U . 
X v-c p -y;^«3^?f$:y;$:^:t L 

-iPy-^^^-^n mmx-^mzm^ 

tz^{=^m)X'Lt)^m^mrzt 
itx$^£i-fxf(7>m^^<^i)^ ^ 

J*^d:fs&ffl>£(Z[if^l^Tl^^A-l^(7)■C- 

mx^mmx-rt)'. mt^^^frnfi^x- 
^^^diztji^xi^^r. 

zti<^{zr>\,'^X<D^Li^z tii. 

##^i<75BASICt75>Sffl»4-t'^# 



miZLX <tz$l\ 

MSXtzl.iX-hsL5mZDTMFmmi 

m^t^ztij^X'BittK t<r> 

m^^mLxmm{9'^- Y)r 

5Ci:{J^*(Z(3T'#S-t+Ao ^ 
C T-^j^IsKi^i:^ LSI ^IS-p T t'zi 

-To ifc. MSX(Z|Iib-r{Z, ?fcl 
LTfi&ffiT'^-SDTMFfi-^^^Ia] 

MSXTf^^Z-cDIMFff-^T-fo. 

^l£c7)Sli&^^<^(;)^^^^(fir 
ztHzf^tt^^x{.ti(r>X\ fS-^ 
t #[3+^m^-^ltS J: -5 (z LT 

tzj;f;. m^^tix^^t^^^^^^ 

'^sm%x-mmr%>(r)[tm\:.hti 

Tl^ST. ^<-v^:5^7 9>K(ZyfE 



I'JXKT 




110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

300 

310 

320 

330 

340 

350 

360 

370 

380 



' DTMF TXh by Taka. S 
T$=INKEY$ 

IF T$="l" THEN A=160:B 
IF T$="2" THEN A=160:B 
IF T$ = "3"' THEN A=160:B 
IF T$ = "A'* THEN A=160:B 
IF T$="4" THEN A=145:B 
IF TS^-S" THEN A=145:B 
IF T$ = "6'' THEN A=145;B 
IF T$ = "B" THEN A=U5:B 
IF T$="7" THEN A=131 :B 
IF T$="8" THEN A=13l :B 
IF T$="9" THEN A=131 :B 
IF T$ = ''C" THEN A=131 :B^ 
IF T$="*" THEN A=119:B^ 
IF T$ = ''0'' THEN A=n9:B: 
IF T$ = ''#" THEN A=tl9:B^ 
IF T$="D" THEN A=119:B; 
GOTO 1 1 
'TONE GENERATE 
SOUND 0, A : SOUND 1 , 
SOUND 2, B : SOUND 3, 
SOUND 8, 15 
SOUND 9, 15 
SOUND 7. &B10111100 
FOR 1=0 TO 180: NEXT 
SOUND 7. &B10n 1111 
RETURN 



=93:G0SUB 300 
=84:G0SUB 300 
^76:G0SUB 300 
=69:G0SUB 300 
=93:G0SUB 300 
=84:G0SUB 300 
^76:GOSUB 300 
:69:G0SUB 300 
^93:G0SUB 300 
=84:GOSUB 300 
=76:G0SUB 300 
:69:G0SUB 300 
^93:G0SUB 300 
:84:G0SUB 300 
:76:G0SUB 300 
:69:G0SUB 300 
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6@e 

LM 386 N 



Tt^S-r. tC^A\ MS)Gf:m- 

Z Timm^S S. -J ^n -T > ^(7) 

Mig](C^^^ :h.T A^b 1 03^¥^^ 

X'toiimh MmoomxYxi^x 
-r^zn^^x^^ittxt. *m 
!A^^M.x\.^^t. lofiT-eoon 

ii-r'-r)i^^s ll^(73JRC(SrH^ 
>r-i>A^SlP(t°V*'a-5iJ(::IE 

LM386N-4(NJM386B)*^^ U * 

To z(D\Cff>^r^it. 5'-'l8V<;>^ 



(Z[*. 5M2V(75®±«gfflT'$)n 

RCA:? -f y^ffli^^ i=-R?iJT-r= 
-C§ tit^ A :S"f "/cTi fo<7>^#-3 T 
^-r^<r>x\ ^'M^Hz<i^zt 

mm^ >r>-*f-izum^^& 

%>(DXi±%LX<fi$^\ m&<D 

(^ii>^:^-y \-<Dtzist>(7) 
h(r>xto Z(7M.^^ 

Ltoztizt£i}ir. 

Tt*^220jtiF felHl^ 

(ar. 'i^7.\:f-tl~X' 
it-H^f£i^'^^'^±X- 



tx-^m^^tLxi,. mmzx: 
F>Dnmzi>r'>v—ii'smM±. 

&}h<r>X--t. Wi!^mfz[1Uh[i. 
m<xh^L%X.U\^^\ffxt. 

S\-mzNZ7y^9—Ui:^^^M 
Lxmmt^%^it. U^^i-k 

#«)t75iaClO0/z F^ISt'+-9-)(- 

7:t>^u±r:>zt[zu^tm.\.^t-r. 
ta:b#)ff5iont7)^£ijtt5t 0.047 

^ F(73n >r>-y— tS^^IKlhffl 

mtmzxfif^^xhms-^tit 
^o sfzffi}t^(iiTi(7)4-5>(?>i 

^xi^^mmx^ t 

m^^z^^-:^-<r}m 



#-bJloT L toZt ti^hh-h^hX 
^'b<DS^t)^ttHztii^m-Dtz'h. 

m±itm:fm-f=7 :^m^^^m i tz 

-^:^m^W^tfziiTfy^:^\^'-:h 
-<7^y°7^mxt. 

ifumizxnxmm lx < fc'?'.^» 
x^^i^ii. zn'h<r)Zt^9!a 



■112 


tf>ie5ij 




GAIN 1 


'^-^ 


5 GAIN 


-INPUT 2 


L 


^ 


"^ BYPASS 


+1NPUT 3 


r 


L^^ 




t] Vs 


GND 4 






8 Voul 









113 LM386N f^BB^fflSSS 



BYPASS 
15k 



-INPUT 




129 



MSX^n^'^v-fgiii+li 




-juo^^uvdt. 















Oo JrMAHc757T>^V3>^ 
^^T.DEUv;^:?— (7>fil?rDMA(:: 
■fev hT-f)„0^(J,DMAfiyc-7 

-(ciS::t^nTu€.7 7"r;^:^- 

FCB(753S'<'f h7:)^ibff>7>:5''AU=i 



^(z, FCB(7)i6/<-r haii^T-i' 
t{Dm^ 1 [iiTi^^t±j-rL-=i- K 

Sit UTHLUv7.^-(CAn-5.. 
cnT7 j'^JU^ 1 UTItc^JAC 

i:#(iAUv:^5'-CFFH;^^S:t 

L T $) J U X t - K 7!j^±^^ lb 'i-*^ 
'^tzti-^^£(r}f'U 1 fcL*Hz^ 

f£tZhX-"tm^r>Xii\.^fzK 

tziliCUh. asc4-TX4-i^A\ 

T-fc. 7'VL'i]'iJXAzi>x^ Mi 

^^■hhi^-»Wn'b^<r)fz^(n 

m(3-t[-r(-yp^7A^i^^T;f3. 
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H53h/*a*K 



BDOS EQU 0005H 



lE: 



DISK LOAD 

HL=data top address 
DE=load address 



DISKLD: PUSH HL 
LD C. lAH 
CALL BDOS 
LD HL. FCB+0 
LD DE. FCB+1 
LD BC, 37-1 
LD {HL),0 
LDIR 
POP HL 
LD DE. FCB+0 
LD BC. 1 2 
LDIR 

LD DE. FCB 
LD C. 0FH 
CALL BOOS 
;0R A 

;JR NZ, ERROR 
LD HL, 

LD (FCB+33).HL 
LD (FCB+35).HL 
INC L 

LD (FCB+14),HL 
LD HL. (FCB+1 6) 
LD DE, FCB 
LD C. 27H 
CALL BDOS 
;0R A 

;JR NZ. ERROR 
RET 
DEFS 37 



:set DMA 
: clear FCB 




;file name t>V^ 



;file open 



; random record = 



;record size = 1 
;HL=file size 



'FGB: 




mh^3^0)Mt9n^3^it 



D\SKB/KS\C±X-mitt =th<D^f^ 
7'1'VU^^-A, ^LT13. WU 



HLu- -:>:^ :? — T'TF ? n-5 7 T < 
LXfs^^fz<r)X\ cn^##[-T 



ipiOGlAMJfOUSE 



U7.hE : '9-y:/;i/'/n^*^i=. (DISK BASIC) 




DISK SAVE ROUTINE 

lEntry HL=data top address 

IdaTA: DB drive, 'file name llbyte" 
DW start address 
DW end address 



DISKSV: 



EQU 0F37DH 






PUSH HL 




:FCB 9U- 


LD HL. FCB+0 






LD OE. FCB+! 






LD BC, 37-! 






LO (HL),B 






LDIR 






POP HL 






LD DE. FCBt0 




;FCB - K^fJ'n' va'i.Jr'i**-^ ? 


LD BC. 1 2 






LDIR 






LD DE. STTADR 




■,Hi~i.i-A'7y'\fl 5 *V' '/ 


LD BC. 4 






LDIR 






LD DE. ESTTADR) 


;OMA tiinUy 7r H 3 t»f< 


LD C. lAH 






CALL BDOS 






LD DE. FCB 




;7/a J itst'f 


LD C, i6H 






CALL BDOS 






LD HL. 




•M3iiii'/]^2-y = 


LD (FCB+33). 


HL 




LD (FCB+35) 


HL 




INC L 




■.ii^iix\/:i~i'fir = 1 


LD (FC8+14) 


HL 




LO HL, (END/«>R) 


;Jl*3U3-r J5 3 HL I tM» 


LD DE. [STTADR) 




OR A 






SBC HL, OE 






INC HL 




: HL=*+3tt'3-l-':i5 


LD DE. FCB 






LD C. 26H 






CALL BDOS 




: V/f t t S+3i 



tTT^f X» 



LD DE, FCB 
LD C, 10H 
CALL BOOS 
RET 



STTADR: DS 2 
ENDADR: DS 2 
FCB: DS 37 

END 



;7r1» i *Q-X* 



;lJ-h7r H *V' y i i* 
;IVh'7r i-J *V'> / J;" 
;f' (Urnx / JJ* ^ FCB 



ilJJlilRiCx-i';^:^ K^'Tt'T-. IrI 
h\:XY(n^x^$.x--:fciiy^A<D 






*) X107-24 

*^lt!MEm«liJ6-11-1 

7t 7'JHr'JXiiD:>x7.h# 
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ilMSX-M8O07^Pii^i^ 







IRP X, <1. 2,3> 

DB X 

ENDM 



DB ! 

DB 2 

OB 3 



!i5CHE 



IRPC X, 
OUT (C) 

ENDM 



OUT (C) 
OUT (C) 



tlTl^-|.fMSX-DOS TOOLS J ?r 

Bsbxw^wm^ALXX^zo. 

>- ^TKiBJ L T I, ^ r o J 33'<- V (Z 

hsum^mA.x-i^'ox < n„ 

'MACRO-'ENDM"[il33'<— v^ 

?) (5 9 t;) U ;^ h T 
'VRAMWRrt LT^ 

C^^io i-f^P^'^A 

ffrnx'-^^a^^m^. 

:^^~:^^^[fX''MA 
CRO^.^LT/f^^- 




IM8O0lif!J(d&^-| 

■REPT<ISt>-ENDM 

"REPT"t"ENDM"0^(CgSSnrL\5aS^#"REPT"O 

"lRP"©Sci:(cies<vnrusyv°^x-^-©g!;^l:^gBa1-S7b\ 

''lRPC"©S(tlci§:^inrLi«S!:!?!5ij(Z)3^¥IS^(iS^-rsj:)\ 

ILOCAL<^K/l/> 

"MACRO"--"ENDM"[^r5'^;L':£^fflT$:^^. SB[C3© 



-::^c7)^;:)^b *ENDM" J T';:j^'v:? p 

>7'^ULfc i: ^ tz *ENDM* t X-(n 

F*9^tzSS^:b^. i:L^T;b(t. 
LA^fc^\°^^-5'-{Z'ffi^^^:£L 

tzi)T^tBlzV-y)U~^>iiT^ 
mtzL. XALL^ 'RET'-cTJglSj^fz 

CC75(5:^HZ, JEifttZWv^p^ 

•*REpT'"-*ENDM"(i. ia:^?n 

-fe >yjL.-r-5 fc(;5„ 1 33^— >^ \j 
X f'c;)*PATTERN:"C7)g|5-j>4-t'T- 

t -f ^R£pj''<r>ih t izm tj Mtm 

n^^MU t<7)y^(D'nizmm<7:i 

*ENpM"^»<„ ZtlX'mt)i)fz. 

-(;)(3*^'iRp"^ ^iRpCi: i.^T, 



i^i;d;9[z^MJSL®llLT7'-lr 

>zf}i'r^m^t^^^o 'REPT'i: 

^tC^„ *IRP*T'(J^N°5X-5' 

fc -5 a t oc7)*iRPC''Tii/\°7 > 

~-$'-^^c^n-i^^Lx\.^<o 
xh. iEmi'-^x$>gi)i^t>f£\.^ 

^h'tiizlti^i_tj:\,^ifi^^f^^ 

g^ £73 *LOCAL"^% li^^a 
^X"7^}U^i^mT=btzlsb(Dh(7y 

^lABEUi^ir^^LABEL?: "t^^^ 
^^Ji'^i^mUzl'^-^lt. -7^ 
Pc7)5tsiT- 

L0CALLABEL1,LABEL2 
i:m.mLX}i<'jl^fy<^^^ i^^ 

>'f^^x-5mt^^^^£t:iz'Si- 

i.-ttH£'^Hi^£^^<DtiK T-\z>y'}i^ 

■t^tZ(7)^^j[yfy-\, 0000";^^ 

■b*. FFFF"tx<n:Si:mzm.^^ 
h^zto ^iU. yPr/^Aif 
X'(iZ(7)5'<-;L.^®^x#''j:L^, 
^^miizziX'. m^fj^hit. 

0^mi>rLX\.^< ZtiZLXOo 
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piOGMAMIfOUSE 



^y'::^')\jyn':^3L>.'\ (v^p^^) 


DB 0FFH. 0FFH, 0FFH. 0FFH 




LD BC. BYTE 
CALL LDIRVM 




DB 0FFH, 0FFH. 0FFH, 0FFH 




LDIRVM EQU 005CH 


DB 0FFH, 0FFH. 0FFH. 0FFH 






CHGMOD ECU &05PH 


DB 0FFH. 0FFH, 0FFH. 0FFH 




ENDM 


RGISAV EQU 0F3E0H 


DB 0FFH. 0FFH. 0FFH. 0FFH 








DB 0FFH. 0FFH. 0FFH, 0FFH 




LD A, (RGISAV) 


LD A, (RGISAV) 


DB 0FFH. 0FFH. 0FFH, 0FFH 




OR 0000001 0B 


OR 0000001 eiB 






LD [RGISAV), A 


LD» (RGISAV). A 


COLOR : DB 0FH. 0FH, 0FH, 0FH 




LD A. 5 


LD A. 5 


DB 0FH, 0FH. 0FH, 0FH 




CALL CHGMOD 


CALL CHGMOD 


DB 0FH. 0FH. 0FH, 0FH 








DB 0FH. 0FH. 0FH, 0FH 




VRAMWRT PATTERN. 7800H. 32 


LD HL, PATTERN 








LD DE, 7800H 


ATTRIi DB 100. 100. 0. 




VRAMWRT COLOR. 7200H. 16 


LD BC, 32 








CALL LDIRVM 


END 




VRAMWRT ATTRI, 7600H. 4 


LD HL. COLOR 
LD DE, 7200H 
LD BC. ! 6 
CALL LDIRVM 




LOOP: 
PATTERN 


JP LOOP 

:REPT 32 ipattern data 
DB 0FFH 
ENDM 


^yyjl^y^^'=,j^^i^^Q^) 




LD HL.ATTRI 


LDIRVM EOU 005CH 






LD DE. 7600H 


CHGMOD EQU 005FH 


COLOR: 


REPT 16 :color data 


LD BC, 4 


RGISAV EOU 0F3E0H 




OB 0FH 


CALL LDIRVM 


VRAMWRT MACRO STTADR. ENDADR. BYTE 




ENDM 


LOOP: JP LOOP 


LD HL. STTADR 


ATTRI : 


DB 100.100,0.0 lattribute data 


PATTERN:DB 0FFH, 0FFH. 0FFH. 0FFH 


LD DE. ENDADR 




END 



oftware lontest 












• 



v:^Y-ox7'zyy'T'x\- 








itTAKERUX-m^X'B ^ hmizm. 

M's-r. $tzs ,^M^<r>mfmit. 



(DMSX. MSX2v MSX2+. turbo R 









=r10?-24 
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3C«#^ 







4- ^ > :?" A 7 ^ -tz ;^ :^5tt^fiiE^fc; 
> ^-r- A c7) V V ■t't- — :? 4- 1\ 

Msx-BAsiaz(i7 j"r;K7)iau 

A7':?-bx:^it(litT7>yA)c75 
— r>->-f JUTii, 77"rJU^3t 



c nnj^ L ^ > :J''A(;):^-^(i, 

Whhh^o $.tz->-^>~>y)l- 

7 z-fJUco^ >:S'"A7'^-tz:^(i 
OPEN 

n^xi-^^tz. ^ntmLtzi^- 

>i^ L T (5 LL \ MSX( J - (7)#5tC0 



OPEN 



T1.DAT" 






AS#1 



LEN=1 



ft!3©pn%^77-fji/^m^'r-sffl 



UXS® 


m^jh3^yn<:/-yA 


100 


' ?>* 


'i J'JtJ, A+35 


110 


OPEN 


"T1. DAT" AS#1 LEN=12 


120 


FIELC 


#1.8 AS N$. 2 AS H$. 2 AS M$ 


130 


FOR I 


= 1 TO 3 


140 


READ 


NM$, HP, MP 


150 


LSET 


N$=NM$ 


160 


LSET 


H$=MKI$ (HP) 


170 


LSET 


M$=MKI$ (MP) 


180 


PUT #1.1 


190 


NEXT 




200 


CLOSE 


#1 


210 


END 




220 


DATA 


"fe>y", 300, 10 


230 


DATA 


"7*')9*n". 60, 40 


240 

nHHHMHB 


DATA 


'■v*'j7A-{2". 30. 280 



LEN(7)^g:t„-n{SU=]-Kc75:*:^ 

#-^(J7rY;Kco!j-SiiLII-§- 

t; y-totA^77'-rju^a;b4- 

FIELD 

~ (7)s^t) 7 T -r juotml^:^^ 

:tffi-r-&S^T% OPEN^^(75:;J;{= 
- Tiiu-zj- K^i:'«J: CM? 

i tzm-^r^:sc^\m^(7)A$ 

-KS^) 



F\ELD^^Ti^^LtzX^Mm^ 
^/■Zo 7 7 -r ^L-S-^tiOPEN^^-e 
?lja;^(C, LSET^^T-ftALTJi 

LSET 

FIELD^^Tlt:^ L fz^^m^ 

mzr-9 HtA-r-a t # (cis^o 

'jZ--rLSETMS0C<!:. 

LOF{yy^}umm) 

LOC(7j"rJb||^) 
MKlSC^iafB) 



RELD #1, 8 AS N$,. 

I — , — I i_^ t I 



:77"fjn 



T-'— ?) 







7=-^»0Slti3:b=i~K®X^ 
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piOGEAMHOUSE 



110 OPEN "Tl.DAT" AS#1 LEN=12 

120 FIELD #1,8 AS N$. 2 AS H$, 2 AS M$ 

130 1=1 

140 IF L0C(1)*12=L0F(1) THEN 210 

150 GET #1, I 

160 NM$=N$ 

170 HP=CVI (H$) 

180 MP=CVI (M$) 

190 PRINT m%:" HP":HP;" MP^MP 

200 1=1+1 :GOTO 140 

210 CLOSE #1 

220 END 



n(n&$i.t2iztj:^<DX\ ^nc 

•a-^-arXFIELD^^^H^TLTfi 

CV!{^tiECDS!?9iJ) 

m\$^i^-oX^m$ nfcis:^ 

'JXS(Dv ©^ 

T < JL^^fFo X. DATA5:(7)rt^^ 

tfzT^X(r>T-'—^^m$i^A, 
fzh. CL0SE^^^-f^L^77"f JU 

^::>p— tTLTl^^o Z(r)^Mt 
L0C|l|f[i:L0F|gig[?r^lj^T-5. v 

LOCO* (m-K-9-'rx)=L0F() 



rtg^^s^T^T'p ^7 Arisen- 

T-fcv>yAT-7:i"r;u?:i5o t 

^>\y^iv-MMzL=^— VX-yr 

V >^'a:^!^T'7 ?< ju^^-y 
>LTt*oi:. fcL^c7>7j"f 

'f7.^[ZifL<77"fJl'^fFoT 

LSo^^'^jfc'o v>$''a:^^x-7 
T^sv^m.^fztt^i.t. :ioL 

^^rsr^^/ioAscRissrtjt < n 

Uii':>V-t'o[Z'y\.^X\,^^^^<r) 

z t x\ Ascmm.^^0 zmz^i) 
t(D^^^%n^ztti^X'^^. 

?'b(lJ20ftT-^*L/zX7~ 



uxh® :7Wib^'>:73^P'^'::7A 



100 


' 77U^' V7' 7* ur 1 


A 




1 10 


DEFINT A-Z 






120 


ON ERROR GOTO 340 






130 


INPUT "file name=" 


:FF$ 




140 


OPEN FF$ FOR INPUT 


AS#1 




150 


CLOSE #1 






160 


OPEN FF$ AS #1 LEN 


= 1 




170 


FIELD #1, 1 AS D$ 






180 


FS=L0F(1) 






190 


PRINT 






200 


PRINT " l^FFS;"] " 






210 


PRINT "file size=" 


:FS 




220 


PRINT 






230 


1=0 






240 


PRINT RIGHTS ("000" 


+HEX$ (1*8). 4) ; 1 


250 


C$=" ":FOR J=l TO 


8 




260 


IF LOC(V)=FS THEN 


320 




270 


GET #1. I*8+J 






280 


IF D$ < " " THEN C$=C$+". 


' ELSE C$=C 


$+D$ 






290 

1 . 


PRINT " ";RIGHT$(' 


0"+HeX$ (ASC(D$)). 2 


300 


NEXT J:PRINT C$ 






310 


1=1+1 :GOTO 240 






320 


PRINT STRINGS (2. 9) 


:C$ 




330 


CLOSE #1 :END 






340 


BEEP 






350 


PRINT "file A' i^A'JTtV !" 




360 


RESUME 130 


KuaH 





ZSmiJ'htz.mmzURESUME^ 
J/-i^c7)7°P:?*7A'CX^ — 

ft^h^fz^^xhJ^^-m^\^ 
-^>^%mti^'M'oX{.t^\ t 

~ ;: ^ X V — h 7 -y 7°J b- ^ > i: 



t\.^\.^fzhn. tfzJi^—Y^-J 

=7i.xtmx^u^^^^^iz[mm 

— 7 D — ^i- i:V -r VJL'— ?" >T*^ 

M^^r^^^a^'^A/j^^tt^^; 

^XwM. ^U<T^zmX\ V-H 
t J5 U MSXTT^ S 7 r -r JL'7' 

^-b7.^imuz. •^mitv->^ 



l^jS^ 



t>:K^mzmo±i-f^z>-tm.o^ 



5fe 



M07-24 

s^aijiEffi«uj6-ii-i 
;^u-i7m»merju 
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K^p^aix'/vw 







mmn 



F1<S/u<f9/u 



n^W^y)/- 



MSXE VRAMe4K 



ssSMSX'^-bog 






^k h U :*3- A . B 




• ^iMT-:^?-7^-i- >y5^'J -y K$-5t:t 



• *imiDiitt5A-5iigo 



SC£i.'iS«t. 




^^ 


^^T^^f 


1!H!~U0 


ViKS^ 


MO~160 


:^-^?'-9<7iOtntiiL 


ne~!iii 


l'-:^llij(r>KE 


320~4E0 


zri^-y-<r<»ffS&m 


4?G~S?0 


:3-xiDSim 


S!0~J!(l 


tto^n 


730~?70 


9t/y h" 


IJ(I~901I 


^f-itaotea 


gili~95(i 


y— A:r— "— offla 


96II~10S0 


x^s'^ >7©sia 


1040~ID1<I 


lGlHES:-y-7Ji'-?> 


1t70~1U0 


S*«*<T5i&a 


1}00~17I0 


n-::^'P;<:/5-i' h©?-? 


X, X (n) 


iVSt^KKtOffflt 


Y, y[n) 


g«JRy»Irait^;:;E« 


S, S(n) 


g«St;B[«©;!tf- h- 


L. L(n) 


g*»y»«offi@« 


P 


*y>9 > 





wasrou-^jt 


AC In) 


JD»£ 


C(n) 


3-:^?— ? 


DP 


f 5-f /i-Z*-f V h 



2 ^ A s ^r^ f^ 



IWA 




C tl S tzM'nt ^fzHtiiZ U MSX 



MSXE VRAMB4K«5MSX'^-Uot 



n. ni-bZizmuzi^B-fx^ 

A<tiJU^Tibti-So 



tzlt h U ti~A ^Wttmm±iz 
S>i^^U-i^tl£lzB\$^-^^ 



~^litr>XL$.r^tz, ^tzSO) 

it^tix^^%,tz^izmmti^i^x 






L. f~-Lj\^hmt^uifz. z. 

(P/WPPTf) 
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A M (t '^ 



v^^jm 



fW0RD-MA6l( 



1-5.:: iic:!:^. aHl-J^-^Tijt 
its:) ?. V T.cT^^i'j: r diS'- ^^% ^ 



MSX2 VRAM64K 

- 1 (i^-'T^- h\ yu— \'- 2 



A S <rt i^ 



;4^3:^R 



t¥ 




e 



:^ 'j: :^ ^ < ^K7>T ^ ■> 3 >^ 'f Xju 

fc(J-xa'r;^X'fv^T':^7-fA 




^0<^- K13B|-;£T-iK¥fr'T? 5, 



• SS%ff] L fc(5 T ft'M^li 5rllS«) ?>= 



lll~211 
!IO~SOD 

7ID~9S0 






I3!0~1S7D ^^>\i-fJ 
1S!0~1JTD SaT"-* 



A$(n| 
B$(n) 
C(n) 
D(nl 
E (n) 
F (n) 



mm 



IBB A^ 60) 

7^ K yK" -r 7. 






irxjifv^-r^i*vj"ivs4wy^»^ipJ"rJsiiir^4i«*v^p^jwvj«i^^jBF^rti%-jw^A^ 



MSX2 VRAM64K 

su^c^i7tA%l^TLS^. ?v:i- 
5^m-5^ t;i^"T'?nU 1 ®^ u 

J'JllP^-J^^»V^ll'v■J^^^-*■nVJ»'>'J■^J^llr^*■P.^||'J■1l^J^Mr■.^J|(P/JNr^J^r,-J■^ 




gB*^6(D7 K A-r X 



=fco<i:lc^A^/)^ 









-j-fVJ"'-' Jir^ jflivjUP/' J<ir,ivjipj-jnrF*jii f- 






(izi7A7;Cf^-rro V-A^x'^ I 






tb<ttx-:7o 






56 



=1=107-24 
7.U-X7SlllUtfiU 
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«ff:5^(3:136'^-yi^JS« 



>>>>> Screen Turnins S/stem <<<<< 

110 ■ = F-1 ROUND&ROUND = 'SI -Data 'SO 

12e ■ 

! 30 DEF I NTft-Z: DEFSNGM . N , X , Y: D I MCC 255 ) , LC 
6 ) :GOSUBl050:RC=a 

140 ****** ^-p-l-iX fjf- ***** 

15B P=ffl:READCS,BT,Gi;05,Gt: 1 :> 

160 FORI =0703 :B=RND( 1 )*6 4 : READAS; FORJ= 1 T 
025 ;CC l*25+J> = CC<:i*25 + J-l :> + C VALC N lOJi: A$, 
-I, 1 n J-5+32 JM0D32:PUTSPR1TES+1 , 1.3S + B.2 12 
-J*10), ,0:NEXTJ. I:CLS 

170 ' 

180 F0RI=BTO16;PUTSPRITEI , (0 , 22e):NEXTI : 
T=0 : R=RCM0D2 

190 PSETi:6B.80>:PRlNTHl . "ft" o"RC¥2+ 1 ■•Si 
■■CS:PSETC10B, lia):PRiNTttl,MIDSC' Hii. ttoL. 
i'J",R*5 + l ,5):PSET': 100. 128>:PR1NT«1 ,R+l"l, 
«5":G0SUS1 1B0 

280 SOUND?, 184:PLAY"sem30000t20ao518cr64 
dr64cr64a9l", "t200v I 3o4 lBcrG4dre4crG4ag 1 

2ie ****** 9-S~ :t>! ***** 

220 _TURe00N(C<>.GC ) , LC :i . P, 0, R, T . RC > 

230 DlMriC31).N(31),V<31).Ui:31i.S(e),Xi:8) 

, YCe J.AC< 178) 

240 ■ ttN- 

250 X=32: Y=i8-tP*2)*l . 5-CPm6d2 )*. 25 : ONR+ 

IGOTO270,2B0 

2 60 X=44-i:PMOD2 )*24 : A=B : FOR 1 =0TO6 : A=ft-C P 

^l ):x<: I )=44-CAM0D2)*24:YC 1 )=1G-CA*2>*1 .5 

-,AM0D2)*.25:LCI>=e:A=A+l ; NEXT 1 

27a P=0: FOR 1^0X031 :MC1 )=S1NC <ATN( 1)/-4)*I 

):NC 1 )=-COSC(ATN< 1 )^4)*I 3: NEXT I 

2B0 C0L0R=C 14.2,2.4):GOSUB490:GOSUB74a:L 

I NEC 96, 32 )-U 12.64), 1,BF:CIRCLEC 111)4,40). 

4,6:CIRCLEi;i04.56),4, 12 

230 FORI=BTO!60:AC<I J=INTtSORC 1.25*- 1*2+ 

400>):PUTSPR1TE0.C 120. 136), . < l*26MOD2 )*1 

1 :NEXT1 

300 FORl=OTO2OO:PAiNTC104,40),B,6:NEXTI 

310 GOSUB770:FORI=8TO20:PAINTCIO4,40), 1 , 

G:PAINT(104.56),2. 12 :NEXT1 : G0SUB74B 

320 ■ Main 

330 ****** 3.y7t°'lih ***** 

340 OMSTICKC 1 ) + l 0010370, 370 . 350 , 350 , 350 

370,360,360,360 

350 H=CH-H >MOD32:GOTO370 

J60 H=CH+31 5MOD32 

370 IFSTRIGCI >THENS=S+ACCS*2 >ELSES=S+4*( 

S>4) 

380 F=0: !FSTR!GC3>THEtJS=S+30*<S>30):F=l 

390 X=X+M<:(H-CCY) + 32)riOD32)*S^10:V=Y-NC< 

H-CCY)+32)MOO32>*S^320 

400 IFX<4TH£NS=S»ABS<X-4):X=GELSE1FX>60T 

H£NS=S*(X-60)iX=5B 

410 GOSUB490: 1FY<237THEN440 

420 A=256-y:LINECVCA)+NCH)«32,W(A)+M<H)* 

32)-(:yCA)-N(H)*32,WCA)-MCH)*32), 15 + CL=R- 

1 )*7 

430 1FY>240THENY=13:1,=L+1 ; IFL=R+1THEN780 
440 1 FY< 10THENY=235 : L=L~ 1 
450 IFSTRlG(a)THENT=93S:R=-l :GOT0780 
460 GOSUB750:PUTSPR1TE8.<: 16,224-Y). , : GO 



TO340 

470 ■ Sub 

4B0 ■***«* 3-7 IT< ***** 

4BB CLS:G=YMOD2:C = (H-CCY>+32 )MOD32 : i^C 15 ) 

= 128+(i(C)*(Y-INTCY))*32+N':C>*(X-32>:W( 15 
)=144-NCC>*CY-!NTCY))*32*ncC)*Cx-32) 

500 V=VC 15):W=WC 15): A=l : B=0 : GOSUB540 

510 G=CY+1 JM0D2:Aa=B-l:V=y<15):W=U( 15): A 

=- 1 : B=0 : GOSUe540 : Al =B 

520 lFR=lTHEN59eELSET=T+l:FORl=0TO993:NE 

XT ! : RETURN 

530 ■ 

540 C=-MCCH-CCY+B+i:A<0))+32:>MOD32>*32*A: 

V=V+C : D=NC C H-CC Y+B+C A<a ) >+32 )MOD32 )*32*A 

:U=U1+D 

550 lFW<16ORW>204ORU<e4ORV>192THENRETURN 

560 LINECVC 15+B)+D.Wi: 1 5+B )-C )-( V+D, U-C) . 

GCG):LlNE<yi: 15+B)-D,Wi: 1 5+B )+C)-C V-D , W+C) 

,G<G) 

570 G=CG+I >M0D2:B=8+A:'J( 15+BJ=V:U)( 15+B) = 

W:GOTO540 

580 ****** y-nr\l7.- ***** 

590 FORI =BT06: SCI )=SC 1 )+ACCSC 1 )»2)-RNDC 1 

>*i: 1*2+1 )*S(1 )¥C 120-0*30 > 

600 B=C<YC [ )+2)-C<YCI )+l): 1FB=OTHEN620EL 

SE 1FABS< B ) >4THENB=SGNC B )*4 

610 A=320-RNDC1 >*C l¥3+i )*12-ABSCB)*40-Q* 

3a+RND< 1 )*CY<YC 1 > )«50 : IFA<SC 1 )THENSC 1 )=A 

:XC1>=XC l)+SGN<SGNCB)»16+24-X(l))*3 

620 YC 1)=YC 1>+SC l>^320r IFYCl )>24BTHENYC I 

>=13rLCl)=LC 1)+1 

630 A=1NTCYC 1))-1NT(Y>: 1FA>A0ORA<A1 THEN6 

40ELSE66B 

640 PUTSPRITE1+1,CO,220):NM=O:GOTO720 

G58 ■ 

660 CsccCYC I >+A)-H+32)M0D32:D=CYCI >-lNTC 

YC 1 )))*32 

670 PUTSPR!TE1+1,CVC !5+A)+MCC)*D-NCC)*Cx 

C I )-32)-8,Wi: 15+A) + MCC)*D+MCC)*<XC I )-32>- 

B), , CCC+34)M0D32)¥4 

GBB MN=ABSCX-X<I ) ) : Hn=Y-YC 1): IFA6SCNM)>1 

THEN720 

690 iFABSCNM)<.4THENlFMN<6THENH=CH+RND< 1 

)*5 + 30 >MOD32 : S=S¥2 : SC 1 )=SC I )¥2 : XC 1 )=XC 1 ) 

+SGNCXC ! )-X)*i2:GOTO720 

700 G0SUB760: IFNM<OTHENXC I )=XC I )-SGNCX-X 

C I >)*C I<6-Q*3):S=S-CMN<S)*3:GOT0720 

710 lFNM<.eANDMN<6THeNSC 1 >=S+30*t S>90 )EL 

SEIFMN< 12THEr4XC 1 )=XC 1 >+SGNCX< I )-X>*ABSC C 

XC i>>4)*CXCI)<e0})*2 

720 PUTSPRITE9+I ,C 16.224-YCI )J. ,0:NExTl: 

RETURN 

730 '***** tJ-S:'!-- ***** 

7 40 SOUND 1 ,255:S0UND3. 1 : S0UN07 , 184: SOUND 

8.16: S0UN09 ,16: SOUND 12,0 ■ E'u I- 

750 SOUNDl 1 , 88-S¥5+F*39 : SOUNDl 3 . B : RETURN 

760 SOUND5,2:SOUND10, I5-ABSCNM)*10 : RETUR 

770 SOUNDO , G4 : SOUND 1,0: SOUND? ,134; S0UND8 
, 16:SOUND12,99:SOUND13,0:RETURN'L'7- tJt 
780 -TURBOOFF 

790 • 

800 '***#* ^-fz-jyi ***** 

810 BEEP:COLOR=C 14,0,0,1 ) : A$="2nd3rd4th5 

theth7th8th" : ONRCriOD2GOTO8S0 

620 • > Pr-actice Goal < 

830 FORI=0TO7: 1FBT+O*30+ 1 *5 >TTHENP= lELSE 

NE.-TI :P=7 

840 PSEK.7G .'i^izPHlNim ."7.9-T^)/7' 7' -J-Jh' " 

: COLOR 10 : P3ETC 1 IG . 5S ) : PRl NTtt 1 , Mi DSC "P . P" 

+AS,P*3 + 1 ,3):C0L0R15:RC=RC + 1 : GOTO 180 

850 ■ > Grand Prix Goal < 

860 FORI=0T06:PUTSPRlTEi .CO. 220): IFLC1)> 

=R+ 1 THEr'JP=P+ 1 : NEXT 1 ELSENEXT 1 

870 DP=QP+VALCM!DSC"9G43210O".P+1 , 1 >J 

880 COLOR10:PSETC I 16 . 96 ) : PRINT** 1 .MIDIC"! 

St ■■+AS , P*3 + 1 . 3 > : COLOR 1 5 : PSET C 44 , 176 ) : PR I 

NT»*1 .■■h-5i-jr-;^-f.'Y::'l- "DP"Pts":PSETCB8. 19 

6):PRlNT*tl .LS:G0SUB1 IBO 

830 IFRC=5THENiFDP>18TH£N960ELSE930ELSEl 

FP>3THEN92B 

900 RC=RC+1 r SOUNDS , 9 : S0UND7 , 183 : PLAY"s0in 

30001200 18c4cc4"L GOTO 150 

310 ****** I'-L *-jr- » I>f-<;/7- ***** 



920 C0L0R8:PSETC92.4B):PR1NT»*1 . "GAME OVE 

R";G0SUB1 iaO:GOTO950 

330 C0L0R8:PSETC24,4B):PRINTttl . "CWORLQ C 

AMPI0N>tT-*t."19-DP"Pts":GOSUBl 190 

940 PLAY"sOm6000t 180 1 8o5cccdco4bo5c4ddd» 

dcd4eeefede4f 1" 

950 1FSTR1GC0)THENRUNELSE95O 

360 C0L0R8, ,5:COLOR:PSETC40.48):PRINTI*1 . 

"GET THE WORLD CAMPION !]": GOSUBl IBB 

970 SETPAGE0. 1 : L1NEC0 , >-C255 .48 ) . 12.BF: 

L1NEC0,48)-C255,80), 14 . BF : FOR I =0TO 1 G : LI N 

EC I*1S,32)-CI*16+16,36),4+C IM0D2)*1 1,BF: 

NEXT I 

380 FOR1=0TO39:CIRCLECRNDC 1>«255,RNQC1 )* 

24), 1 ,RNDC1 )*16:NEXTI 

930 PLAY"s0ml5OOBtlB0o61Bccd4ccd4f4o7dc2 

oGccd4ccd4-f4o7co8b2ccd4ccd4d4de4cf 135959 

1 " 

1000 SETPAGEa,O:COPYC0,O)-C255,80). 1TOC0 

,BB):A=0:B=2 

1010 FORI =aT07 : FORJ=0TO 1 6 : B=C B+A >MODB : GO 

SUB1020;COPYC8,80)-C4, 1 1 6 )TOC 250 . BO ) : COP 

YC5.80)-C255. 116>TOCO,S0):NEXTJ, 1 : A=AXOR 

1:GOTO1010 

1020 PUTSPR1TE8+1 . C J*1S-1 , 132). ,B:RETURN 
1030 • 

1840 ****** 7:l"^-<\- & etc t')S ***** 

1050 COLOR 15,0, 14:SCREEN5. 1 :0PEN"9rp: "AS 

*t 1 ; SETBEEP 1.4: C0LOR=C 14,2,2,3) 

1060 0=1 : A=15:8=15: I=e:GOSUBl 160 

1070 FORI=0TO7 : AS="" : FORJ=0TO7 : REAOBS: AS 

=AS+CHRSCVALC"&h"+BS)) 

1080 PUTSPRITEO, C 124, 1 80- 1 *8-J ) : NEXTJ : SP 

RITESC I )=AS:NEXT1 

1090 PSETC8,48):PRniTt41 , "*5-tL.'^" llt»6X?' 

<77tli.>Zf'';:J°t:'! ! ": GOSUBl 180: !=B 

1 too ST=ST!CKC 1 ) : fl=C A-C ST=5 ) + C ST= 1 >+ 1 6 )M 

OD16;B=CB-CST=3>+CST=7)+15)M0D16 

11 10 GOSUBl 160:O=CQ-STRIGC3>)MOD3 

1120 LS="l,",-|l:-+MlDaC" HARD NORMAL EASY 

".0*6+l,6):PSETCSB, 19G ) : PRINT** 1 . LS 

! 130 IFSTRIGC 1 )=0THEN1 100 

1 140 BEEP : FOR 1=1T07;READA,B I GOSUBl 180 :PU 

TSPR 1 TE0 . C 1 24 . 36- I *20 ) : UEXl I : CLS: COLOR=C 

14.0,0. 1 ): RETURN 

115B ■ 

1 160 FORJ=OT01 :C0L0RSPRITE$CJ*8+1 )=CHRSC 

A)+CHRSC 1)+CHRSCB)+CHR$CA)+CHRSCA)+CHRSC 

6)+CHRSC 1 >+CHRSCA):NEXTJ:RETURN 

1170 ■ > Charactor Decorate < 

1180 COPYC1,0)-C255.21 1 )TOC0,0), ,TPSET:R 

ETURN 

1130 ****** f - -9 ***** 

1200 • > Sprite < 

1210 DATA 38,54,10,28,38,38,54,38 

1220 DATA 04, 8A. 05, 5A. 38,50,28,00 

1230 DATA O0,00,O0,e9,F7.B9,42,aO 

1240 DATA 00. 28, 50, 39. 5A, 05, OA, 04 

1250 DATA 38.54,38,38,28.10.54.38 

1260 DATA 0A,05,0A. 1D.58, A0,50.20 

1270 DATA O0,O0,42.9D.EF.9D,42.0O 

1280 DATA 20,50. A0,58, 1D,OA.05,OA 

1230 • > Body Color < 

1300 DATA 15,8,8,8,15,10.12,10,15.4,7.12 

, 1, 10 

1310 ' 

132B ' > Course Data < 

1330 DATA " 1"*- ';;^", 250, 15,4 

1340 ' cyji.ir-7h:/]>-s.G-< 

1350 DATA99399996B6655555555555555 
1360 DATA5 55555 555555555555 55 677 76 
1370 DATA5 555 55 555 55 55555555 544555 
1380 DATA5555555555555555555567776 
139B DATA5555555555555444455555555 
140B DATA5555555555555555555555577 
1410 OATA7755555555555555555555555 
1420 DflTA7777655555555555555554445 
1430 DATA5555555555555555555322788 
1440 DATA5566666666555555555555555 

145 ' CGOAL 

1460 DATA"!)" >jr>". 290, 15,8 

1470 ■ — (77' ») — >-S.G-< 

1480 DATA55555 555 55555 55 555 55 55555 
1430 DATA555666G667777666555433567 
1500 DATA7655 4434456 777 66 55443 3454 
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1510 DATA5444d44455556776556775555 
152IZI DftTfl55G555553322335556e656565 
1530 DATflG555B55G5G555565554545544 
1540 DATA4444555443334444555555555 
1550 DATA555555B5555555444445555S5 
15G0 DATA5555565eG7Q7322555GeG6665 
1578 DfiTA5S55555555555555S55555555 

1580 ■ <GOAL 

1590 DATA" lt3", 275, 15,4 

16(B0 ' — litu: >-S.G-< 

1G10 □ATA99S9999G5G55S55G5565GGG5e 
ie2B DATA555645556555S4555564G4G44 
1S3B DATA4444455G786555G555557B97G 
1648 DATA555445555533222335555G9B7 
1G50 DATAG555e7eG555565GG5G5G56555 
1GG0 DATAG5554335S77G5555554e555G4 
1670 DATA555 45 45444445555555443 346 
IGBO DATA77GB555677G43345555555444 
1G90 DftTA33366787G55G777G55B544556 
170B DATA555G55e5G55S55G555S555555 
17 10 ' <GOAL 
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100 ■ IWA 

1 10 ' •«« shoki 1 *** 

120 COLOR 15.0, 0:SCREEN 5.2.0 

130 CALL TURBO ON 

140 DIM X(1),Y(1).K(I). J(1).E(1),M(0.0( 

1) 

150 SM=20:LA=1200:GR=750 

160 FOR B=0 TO 2:READ BS:FOR A=0 TO 31 :E 
t=CHR$ (VAL("SH"+MIDt(B$. A*2 + l. 2))) :At=At 
+Et:NEXT A 

170 SPRITES(B)=A$:At="":NEXT B 
180 DATA 07182E404C92808080838857542B180 
7E0187482B2C981 414181 11EA2AD418E0 
190 DATA 0718204C429C8280808083485334180 
7E01 8043242B9C1 81 4 141811 2CA2C1 8E0 
200 DATA 070F1F3E3F794E63D0928A8I4240201 
FC0F0FCFE9EEF7FB7B7D7777FAEEE7CF0 
210 SOUND 6.23;S0UND 1. 1S;S0UND 7,32 
220 ■ *•« title *»• 
230 LINE (0. 0)-(255. 2S5).0. BF 
240 FOR A=0 TO 4:PUT SPRITE A, (0.217).0, 
At NEXT A 

250 J=0:X=85:Y=30 

2G0 FOR A=0 TO 14:Y=YM: LINE (60, Y) - (68, Y 
+8), 15. BF;NEXT A:Y=30 
270 J=J-I:IF J=-15 THEN J=14 
2S0 Y-Y-J:X=X+1 :IF X<142 OR X>156 THEN L 
INE (X, Y)-[X+8. Y+8). !5. BF 
290 FOR C-0 TO 10:NEXT C 
300 IF X<I86 THEN 270 
310 LINE (169. 85)-(182.93). 15.BF 
320 T=STRIG(0)tSTRIG(2)*2:IF INKEYt=CHR$ 
(27) THEN END 
330 IF T=0 THEN 320 
340 IF T=-2 THEN JS=1 ELSE JS=0 
350 LINE (0,0)- (500. 152). 0. BF 
360 ■ «•* shoki 2 *** 

370 FOR A=0 TO 1 :X (A) =A*750 + 250:Y (A) =GR: 
J (A) -0 : K (A) =0 : E (A) = 1 : M (A) =40 : NEXT A 
380 X=625:Y=GR:K=0:J=0:F-1 
390 ' ••« game gamen »*• 
400 FOR A=0 TO 1 :FOR B=0 TO 9 
410 LINE (A«150*-B«7+25, t80)-(A«150+B«7t3 
0. 190) . A*6+3. BF 

420 LINE (A* 150+3*7+25. 180)- (A*150+B«7 + 3 
0. 190) , A«G+2, B 
430 NEXT B:NEXT A 

440 LINE (SM'(5.GR*5+17)-(LA*5+16.GRi*5+20 
). 15. BF 

450 LINE (SMy5. GR¥5H7)-{LA¥5+16.GR*5+n 
).5 

460 LINE (SM*5. GRi*5+20)-(LA*5+16, GRK5+20 
),5 
470 ' **• main ««* 



480 FOR P=0 TO 1 
490 S=STICK(P+JS) :T=STfiIG(P+JS) 
500 IF (S=2 OR S=3 OR S=4) AND K (P) <32 T 
HEN K(P)=K(P)+2 

510 IF (S=6 OR S=7 OR S=8) WJO K (P) >-32 
THEN K (P) =K (P) -2 

520 IF (S=8 OR S=l OR S=2) AND (P) >0 TH 
EN J(P)=J(P)-30:IF (P) =2 THEN J=J+30 EL 
SE IF 0(P)=3 THEN J (1 -P) =J (1-P) +30 
530 O(P)=0 

540 IF Y(P)+J(P)<GR THEN J (P) =J (P) +1 :G0T 
570 ELSE (P) = 1 ; Y (P) -GR : J (P) =0 
550 IF K(P)<0 THEN K(P)=K(P)+1 
560 IF K(P)>0 THEN K(P)=K(P)-1 
570 X(P)=X(P)+K(P) :Y(P)=Y(P)+J(P) 
580 IF X(P)<SM THEN X (P) =SM:K (P) =0 
590 IF X(P)>LA THEN X (P) =LA:K (P) =0 
600 IF M(P)>48 AND F=0 THEN SOUND 6. M (P) 
*2-8tSOUND 8, [M(P) -48) ¥2 
610 IF M(P)=0 THEN F=0 
620 IF M(P)>0 THEN M(P)=M(P)-1 
B30 IF Y(P)<0 THEN CL=0 ELSE IF (M (P) MO 
D 2)=0 THEN CL=P»6+2 ELSE CL=14 
640 IF T=0 THEN PUT SPRITE P. (X(P)!(5.Y(P 
)*5).CL.0 ELSE PUT SPRITE P. [X (P) !(5, Y (P) 
K5).CL. 1 

650 IF INKE¥t-CHR$(27) THENS0UND8. 0: END 
660 IF T=-l THEN A=X(P)-X:B=Y(P)-Y:C=SOR 
(A*A+B»B) : K=K+ (A*4) ¥C : J= J+ (B»4) KG 
670 NEXT P 
680 ' **• iwa *** 

690 IF Y+J<GR THEN J=J+1 :GOTO 720 ELSE Y 
=GR: J=-J¥4 

700 IF K>0 THEN K=K-1 
710 IF K<0 THEN K=K+1 
720 X=X+K:Y=Y+J 
730 IF X<SM THEN X=SM:K=0 
740 IF X>LA THEN X='LA:K=0 
750 IF y>0 THEN PUT SPRITE 2. (X¥5, Y¥5) . 1 
4,2 ELSE PUT SPRITE 2, (0,217) 
760 ■ «** atari ••* 

770 IF ABS(X(0)-X(1))<80 AND ABS (Y (0) -Y ( 
l))<e0 THEN SWAP K(0), K(l) : SWAP J (0) , J (1 
) ;O(-(Y(0)>Y(1)))=3 ELSE 800 
780 IF Y(0)<>Y(1) THEN IF Y(0)>Y(1) THEN 

Y(1)=Y(0)-75 ELSE Y (0) =Y (1) -75 
790 IF ASS(Y(0) -Y(l))<70 THEN A=(X(0)+X( 
D) ¥2:B=40*(X(0)<X(1})*80:X(0)=A*B:X(1) = 
A-B 

800 FOR P-0 TO 1:1F ABS (X-X (P) ) <80 AND A 
BS (Y-Y (P) ) <80 THEN GOSUB 830 
&\0 NEXT P 
820 GOTO 480 
830 ' *** dam *** 
840 IF (ABS(K(P)-K)<16 AND J (P) -J<64 AND 

J(P)-J>-16) OR M(P)>0 THEN 880 
850 E(P)=E(P)-1 :M(P)=80 
860 LINE (P*150+E(P)«7+25. 180)-[P*I50+E( 
P)«7 + 30. 190), 15. BF 

870 LINE (P*150+E(P)*7+25. 180) -(P*150+E( 
Pj*7+30. 190). 14. B 
880 SWAP K(P).K:SWAP J (P) . J 
890 IF Y<>Y(P) THEN IF Y (P) <Y THEN (P) - 
2:Y(P) =Y-81 ELSE Y=Y(P)-81 
900 IF ABS (Y (P) -Y) <70 THEN A= (X(P) tX) ¥2: 
B=40t [X(P)<X)*80:X(P) =A+6:X-A-B 
910 IF E(P)=0 THEN 920 ELSE RETURN 
920 ' **♦ end *•* 
930 SOUND 8. 12 

940 FOR A=0 TO 15:IF Y (P) >0 THEN PUT SPR 
ITE P, (X(P)¥5, Y(P) ¥5). A. 
950 PUT SPRITE HP. (X {1 -P) ¥5, Y (1 -P) ¥5) , . 
A MOD 2: FOR B=0 TO 400 

960 IF INKEYI=CHRt (27)THEN SOUND8.0:END 
970 NEXT B. A 

980 IF Y[P)>0 THEN LINE (X{P) ¥5-16. Y (P) ¥ 
5+7) -(X(P) ¥5+32, Y(P) ¥5+8). 15, B; FOR A=0 T 
100:NEXT A:PUT SPRITE P. (0, 217) :LINE ( 
X (P) ¥5-15, Y (P) ¥5+7) - (X (P) ¥5*32, Y (P) ¥5+8) 
.0, B 

990 FOR A=32 TO STEP -1 :SOUND 8,A¥2:SO 
UND 6.A:F0R B=0 TO 150:NEXT fl:NEXT A 
1000 T=STRIG(0)+STRIG(1)+STRIG(2) :1F T=0 
THEN IF INKEY$=CHRt(27) THEN END ELSE 1 
000 ELSE 220 
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10 ■ LJ[8tt-!tvi 

20 SCREEN I .0:COLOR10 ,1,1 : KEYOFF: CLEAR50ffl 

: DEF INTA-Z : Wl DTH3B : DEFUSR=342 : SETBEEPl . 4 

30 DlMASi;201,B$C2O).D$C20),ESC2a),A<20>. 

B<20>,CC2a),ClC2a).D<20>.DK20).E<20).FC 

2a5.G(28>.HC2B5, K20J, Ji:2e),KC20).LC2ia5. 

MC2aj.N(20).XC2a),YC2a> 

4B VP0KE813S,&H71:VP0Keai99,&H71 

50 SPRlTE$C0> = "»*aj<¥N" + CHR$i:7)+CHRSC3>iV 

POKES 1 9 B , 4H7 1 : VPOKEB 139. &H7 1 

60 FOR 1=0TO1: RESTORE 1580 :FORJ = l*7T01*7+-S 

:READASi:j).B(J):NEXTJ. I 

70 FORI=0TOS:REAOC$( I ) : NEXT : FORI =BT04 ; RE 

ADGC I).HCI>. Ul>:NEXTiBS="V15T255LG405CD 

80 F0Rl=aT013:BS<I )=CSCB(I J);NEXT 

90 FORl=0TO13:fl(I)=BCn: IFBC n = *THENAC I 5 

=3ELSEIFS( i:>>4THENAC 1 )=4 

lao CC I>=GCACI )>:DC D^HCAC l)JiECI)=UACI 

>):NEXT 

1 10 ' 9<y-l\> 

12a F0RI=BTO6tREADAS-.LOCATEG. 10;PRINTAS: 

LOCATEa.24-.PRlNT:FORZ=0TO2ffl:NEXTZ, I 

130 FORI=0TO7:COLOR=<1 .1.1, 1 ): FORZ=OTO30 

:NEXTZ.l 

140 FOBI=7TO0STEP-1:COLOR=<1. I. I . I > : FORZ 

=0TO90:NEXTZ. 1 

150 LOCATEG. 12:PRlNT"-ft-)»*t VSva affSft*-" 

1GB LOCATEia, ie:PRlNT"Ganie Start" :LOCATE 

la. lB:PRINT"Playerl Ed 1 1 "-.LOCATeiB, 2B: PR 

lNT"P''layBr2 Ed i t " : K=0 

1 70 S=ST I CKC ) : PUTSPRI TEO , C7B . K* 16+ 1 27 ) , 

15,0: IFSTRlGi;a)=OTHEMlFS=lANDK>0THENBEEP 

:K=K-1 ;G0TO170ELSEIFS=5ANDK<2THENBEEP:K= 

K+1 :GOTO170ELSEn0 

190 PLAYBS: IFK=0THEN460ELSECLS-.K=K-1 

190 FORJ=0TOI3:BSCJ)=CS(8<J)>:NEXT 

200 FORJ=0TO13:ACJ)=BCJ)i IFBC J 5=4THENAC J 

:'=3ELSEIFBCJ>>4THENAi:J>=4 

2 IB CCJ)=GtACJ>):OCJi=H(ACJJ):ECJ) = KA(J 
) > : NEXT 

220 ' EDIT 

230 LOCATE 1 1 .B:PRINT"Player";K+l : LOCATES 

.2:PRINT"Name Hp Mp St" : FOR1=0TO6 : J 

=1*2+4 

24B L0CATE4. J:PR1NTBSC I +Kt7 ) 1 LOCATES . J : P 

R1NTA$< [+K*7 > r locate IB. J: PRINTUS I NG ■■»«»»" 

; CC I +K*7 ) : L0CATE2 1 . J ; PR 1 NTUS I NG" tttt " ; DC 1 + 

K*? ) : L0CATE25 , J : PR INTUS ING"t»lt" : EC I +K*7 ) : 

NEXT 

250 L0CATE4. 18iPRINT"Data Load" ; L0CATE4, 

20 : PR I NT "Data Saue " : L0CATE4 , 22 : PR INT "Ex i 

t": 1=0 

2effl S=ST1CKCB):PUTSPR1TEB,<24, 1*1G+31). 1 

5,0: iFSTRlG<a)=OTHENlFS=lANDl>OTHENBEEP: 

1 = 1-1 ;GOT0260ELSEIFS=5ANCI1<9THENBEEP: 1=1 

+1 :GOTO260ELSe2GO 

270 J=0:PLAyBS: 1F1=7OR1=STHEN3B0ELSEIF 1= 

3THENF0R I =aTO50O r NEXT : CLS: GOTOIBO 

2BB FORZ=aT050B:NEXT: J=B( I+K*7 ): IFI=3THE 

N3 10 

230 PUTSPRlTEa.C32. 1*16+31), 15,aiS=STlCK 

<B): iFSTRiGC0)THEN31BELSEIFS=lANDJ>lTHEN 

BEEP: J=J-1ELSE1FS=5ANDJ<GTHENBEEP: J=J+1E 

LSE2aa 

300 LOCATE*, I*2+4:PR1NTCSCJ)" ■■:GOTO290 

310 BC I+K*7)=J:B$C 1+K*7 3=C$CJ Jl PUTSPRI TE 

O.C 64. 1*16+31), 15.0:FORJ=OTOG:DSCJ> = "":N 

EXT:A$C I+K*7 ) = ■■■■ 

320 J=0:A< 1+K*7)=BC I+K*7 ) :F0RZ=aT05aa : NE 

XT: Z=USRC0): LOCATES. 1*2+4: PRINTSPCC7 ) : IF 

AC 1+K*7>=4THENAC H-K*7 ) = 3ELSE I FAC I+K*7)>4 

THENAC 1+K*7)=4 

33B DS=1NKEYS: IFD$=CHRSC 13 )THENFORJ=0TOG 

: A$C I +K*7 )=A$C I +K*7 )+DSC J ) : NEXT : PLAYBS : G 
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OT035BELSE IFDS=" "THEN33IBELSE I FASCC DSXiB 

ORftSC<D$)>255THEN330 

340 D$<J>=DS:L0CATEJ+8. 1*2+4: PRINTDSC J ) : 

J=J4l : IFJ>6THENJ=S:G0T033aELSE33B 

358 CC 1+K*7)=GCAC I+K*7)):EC I+K*7)=lCfl< 1+ 

K*7>>:D(I+K*7)=HCAC 1 +K*7 > ) r G0TO23a 

3GB FOR2=0TO5eO: NEXT: LOCATE 14. ( I-8)*2+2B 

:PRINT'"No": J=l 

37B LOCATEie, < I-8)*2+20:PRINTJ 

380 PUTSPRlTE0,i:il2, I*1G+31). 15.a:S=STlC 

KO ) : I F5TRI GC >THEN390ELSE IF 1 NKEYS=CHRSC 

1 3 >THENPLAyBS: GOTO440ELSE IFS= 1 ANDJ> 1 THEN 

BEEP: J=J-1:GOTO370ELSE1FS=5ANDJ<5THENBEE 

P: Jsj+i :GOTO370ELSE380 

390 PLAYBS : C$=CHR$< J+64 > : AS="SWORD"+CS+" 

. DAT" : L=K*7 : FORZ=aTO500 : NEXT : ONERRORGOTO 

450; IFI=aTHEN42a 

4BB OPENA$FORiNPUTASt*l: INPUTS 1 . BCD , B<L+ 

1 ).B<L+2 ).BCL+3>.BCL+4>,Bi:L+5).B<L+e),A$ 

C L) . ASC L-t- 1 > . A$< L+2 i . A$C L+3 ) , AS( L+4 ) . A$ C L 

+5>,A$CL+6> 

410 CLOSEttl:CLS:G0TO19e 

420 DS=" " : F0RJ=K*7T0K*7+G : DI=D$+CHRS<34 > 

+ASC J J+CHRSC 34 J + " , " : NEXT 

438 OPENA$FOR0UTPUTASttl;PRlNTttl ,BCL),BCL 

+1 >.B(L+2 3,B<L+3).8(L+4J.BCL+5>,B(L+S),D 

S:CL0SE»1 

440 LOCATE14,CI-8)*2+20:PRlNTSPCC4>: 1=0: 

GOT026B 

450 IFERR>52ANDERR<72THENPLAYB$:L0CATE13 

, < l-a)*2+20:PRINT"Disk Error" : F0RJ=aTO2B 

0B: NEXT: LOCATE 14, <: I-8)*2+2B :PR1NTSPCC 15) 

: I=0:RESUME2BaELSEERRORERR 

46B CS="VI5T2eaL8EDCEDCEDCEDCEDG4EDCE0CA 

4G12RG4GRBA2":D$="03"+C$:PLAYDS,"05"+CS 

470 I FPLAYi; )THEN47e 

480 F0R!=7T013:D$C 1 )=A$(20-I ) : ES< I )=BSC2 

0-1 ): JCI )=AC20-I ):Ktl)=BC20-I>:L(I )=Ci;20 

-1>:MC1 )=DC2B-l>;NCI)=EC2a-I ):NEXT 

490 F0RI=7T013:A$CI )=0S< 1 ) : BSC I >=E$< I ) : A 

CI )=J<n:BCI )=KCO:C<:i )=Lt I ):D<I )=MC I ):E 

<I )=NCn:NEXT 

580 F0Ri=8TO13:ClC 1>=CC 1):DKI )=Di:i):NEX 

T 

518 • tjie-jT02 — 

528 COLOR 15. 1. 1 : SCREEN5. 2 : CLS:OPEN"GRP: " 

AS»l:R=RND<-TIME) 

530 FOR1=0TO3:READDS:AS="":FORJ=ITO64STE 

P2 : AS=A$ + CHRS<:yAL( "&H"+M IDSCDS , J , 2 > ) > : NE 

",T:SPRITES( 1 )=A$: NEXT: SPRI TESC 10> = "«*8x* 

IJ"+CHRSC7>+CHRSC3 J 

548 FORI=8T013:READXC 1 ) , YCI ): NEXT: FOR 1=0 

T013: IFACI )=1THENFCI)=4:NEXTELSEIFACI )=4 

THENFt n=3:NEXTELSEFCI)=2:NEXT 

550 ■ GAME t^■w^ 

560 SETPAGE, l:CLS: J=0:LINE(0.0>-C256,213 

), 15.BFiFORI=7flT023BSTEP2B:LINEC 1.27)-CI 

-70. 14G). 12:NEXT:FOR1 = 27T014GSTEP17:1.1NE 

C78-J, 1>-C238-J. IJ. 12:J=J+ia:NEXT 

57B LINEC0,0)-<24G, 157>. 12.B: J=252 

5B0 FOR1=0TO150STEP5:K=RND< 1 )*S+250:LINE 

':j. 1 )-(K, 1+5), IB: J=K:NExT:FORl=0TO2aB:K= 

RND<U*3:L1NEC !. 168+K)-C 1+3. IGS-K). 1B:NE 

XT 

59a SETPAGE.a:G0SUB15Ga:LlNE(5, 1B1)-(251 

,2 10), 15.B:LINEC 12B. IGl >-( 128,210). 15 

600 FORI=BT01 :FORJ=BTOG:K=J+I*7:PUTSPR1T 

EK+1 ,<XCK)*20+B8-YCK)*10.YCK)*17+G), 1*2 + 

4,A<K)+1*5:NEXTJ, 1: 1=1 

E,10 ' +1.^1t^ft< 

620 DEFUSR= 1 44 : Z=USRt ) : 0EFUSR=342 : A=fl-( 

1=1 ) 

638 PUTSPRiTElS. t8,217 5:PUTSPRlTE16.<a.2 

17>: l = l-CI=0>+( [ = 1 ):U=[ 

840 GOSUB1510:L1NEC129-K. 162 )-C25a-K.209 

>. l.BF; J=l*7 

650 IFYC J )=8THENJ=J+ 1 : G0T065aELSEZ=USRt 

) 

568 PUTSPRITE0, CXC J )*28+G2-Y< J )*10 . Y( J )* 

n-2). 12. 10:GOSUB1530:COLOR10. 1 

B7B IFSTRIGCI )THENPLAYBI : 0=B : GOTO720ELSE 

lFl=0ANDINKEYS=CHRSC13)ORI = lANDSTRlGi:3)T 

HENFLAYB$:PSETC1B0-K, IBB), l:PRlNTni ."Pas 

s ■' : FORZ=eTO20BO : NEXT : GOTO620 

680 S=STICK<I >:T=J: I FS=; 1 ANDJ > I *7THENJ=J- 



1ELSE1FS=5ANDJ<1*7+8THENJ=J+1ELSEG70 
690 1FYCJ)=8THENJ=J-CS=5)+<S=1 )ELSEBEEP: 

GOTO6e0 

700 1 F J < I *70RJ> I *7+6THENJ=T : GOTOG70ELSe6 

90 

710 ■ COMMAND Hj'iL" 

720 F0RL=aT0!3: 1FX< J )=XtL)ANDYC J) + CYC J >> 
1 )=Y<L>THENFORL=0TO13: IFXC J )-CX< J )<B >sXC 

L)ANDY':j)=YCL)THENFORL=0TO13: IFXCJ)=XCL) 

ANDY<J)-(Y[;j><7 5=YCL>THENF0RL=8T0l3: 1FX< 

J) + CXi:j)>1>=xCL)ANDY<J)=YCL)THEN7 40 

730 NEXT:0=0+l;NCO) = l:NSi:OJ="Ualk" 

748 X=I-CI=B) + C1 = 1 ):M=0:M=M-(I=8) + i; 1 = 1 J: 

P=a : F0RLSBTO2 : U=X*7 

750 1FX<J)-CL=1)*M=XCUI)ANDYCJ)-<L=2) + i:L= 

8)=Y(W)THENP=P+l:PCP)=L:QCP)=UI:NEXTELSEUI 

=U+1 : 1FW=X*7+7THENNEXTELSE750 

780 IFP=0THEN7B0 

778 0=0+1 :N<0)=2:N$i;0) = "eattle" 

780 lFB<J)=lORBCJ)=2THENeS0 

790 1FB< J ) = 3THENM=xi: J ) : H=a : GOT0830ELSE IF 

BCJ>=4THENe50 

880 M=0 : M=M-C 1 =0 > + C 1 = 1 ) : y=a ; F0RL=BT02 : W= 

1*7 

B10 1FX<J)-CL=1 J*M=XCW)ANDY<J>-CL=2)+CL= 

8)=Y<:lJ)THENU=V+1 :RCV)=U:NEXTELSEW=W+1 : IF 

U= 1 *7+7THENNEXTELSEe 1 B 

8 20 lFy>0THEN850ELSE8e0 

830 H=H+1:M=M-C1=0>+CI=1): IFM=0ORM=3THEN 

880£LSEFORG=0TO13: IFMOXCGJORYC J ><>YCG)t 

HENNEXT1GOTOB30 

B4B lFG<7ANDI=BTHEN8B0ELSEIFG>6ANDI=lTHe 
N88a 

850 iFBCJ)=aORB';J)=50RBU>=6THENIFD(J)<l 
0THEN8B0 

368 IFBCJ>=30RBCJ)=4THENIFDCJ><15THENB8e 

G7a 0=0+1 :NCO)=3:NSi:0) = "na9lc" 

880 1FO=0THENPSETC158-K. 180 ), 1 : PRINTS 1 , " 

No Command" :FOR2=aTO2B00: NEXT :GOTO640 

890 PSETU65-K. 165>, I*2+4:PRINTt*l . "Comma 

nd":C0L0R15 

908 F0RM=1T00:PSETC175-K, 168+n*lB), 1*2+4 

;PRINTH1,NECM):NEXT 

310 ■ COMMAND eAft< 

920 M=l 

330 S=ST1CKCI ):PUTSPRITE17.C18B-K,M«1B+1 

68). 15. IB: iFI=8AND!NKEY$=CHftJ<13)0Rl=lAN 

DSTR]GC3)THENPLAYBK:PUTSPRiTE17.<a.217): 

GOT064B 

94B IFSTRIGC 1 )=BTHEN 1FS= 1 ANDM> I THENBEEP: 

M=M-i :GOTO930ELSEIFS=5ANDM<OTHENBEEF:M=M 

+1:GOTO930ELSE930 

950 PLAYB$:PUTSPR1TE17.C0.217): 1FNCM)=1T 

HENM=XC J ) : N=Y< J ) : 0=FC J ) : FORZ=0TO5a0 : NEXT 

:Z=USRC0)ELSElFNCM)=2THENM=0:GOTOlffl3aELS 

E1FNCM)=3THEN1130 

968 • UtALK 

370 S=STICKC1 ): IFSTRIGU >THENX( J )=M: YC J ) 

=N:G0TO62B 

980 I F 1 =B ANDiNKEYS=CHRSC 1 3 )0R 1 = 1 ANOSTR 1 G 

(3 )THENM=Xt J ) : N=YC J ) : 0=F( J ) : PLAYBS: F0R2= 

BT05BB:NEXT:PUTSPRITej+l . CM*2B+G8-N*ie .N 

*17+G). 1*2+4. A(J)+1*5:GOT032B 

330 IFS=1AN0N>1THENN=N-1ELSE1FS=3ANDM<8T 

HeNM=M+lELSElFS=SANDN<7THENN=N+lELSEIFS= 

7ANDM> 1 THENM=M- 1 ELSE970 

1080 FORL=0TO13: IFMOXCDORNOYCDTHENNE 

XTELSEI FM<>X< J )ORN< >Yi: J >THENM=M-< 3=7 )+<S 

=3 ) : N=N-CS=1 )+CS=5 ): G0TO37aELSENEXT 

iei0 Q=Q-1 : IFO<0THENO=a:M=M-CS=7)+CS=3): 

N=N-(S=1 )+(S=5 ) : GOT097aELSEPLAY"04DC" : PU 

TSPRlTEJ+l,CM*2a+G3-N*ia.N*17+e). 1*2+4, A 

CJ>+1*5:GOTO370 

102B ■ BATTLE 

1030 l = I-( l=0) + {i = i ):U=1:T=J:M=1:FORZ=0T 

O5B0:NEaT:GOSUB15 10: I=l-t 1=0 )+( 1=1 ) 

1040 J=O(M):PUTSPRITE0.CXCOCM)>*20+62-yC 

O(M))*10,Y<Q<M))*17-2).12.i0:I=I-(l=0)+C 

l^l):GOSUB1530: l = I-i: 1=0 ) + < 1 = 1 ) 

1050 S=STICK< 1): IFSTRIGC I )=0THENI FS= 1 AND 

M>lTHENM=M-l:BEEP:GOTO1040ELSEiFS=5ANDM< 

PTHENM=M+ 1 : BEEP: GOTOl 04aELSE 1 050 

1 068 PLAYBS; FORZ=0TO5O0 : NEXT : J=T : PUTSPR I 

TEJ+l.CXCJ)*28+68~YCJ)*ia-CPCM)=l)*(Cl=l 

)-C1=0))*10-CPCM>=0)*5 + <:PCM)=2)*5.YCJ)*1 



7+G + CPCM)=0)*lB + CPCM)=2)*-ia), 1*2+4, AC J > 
+ 1*5 

1070 G0SUB157a:CCOCM))=CCOCri))-ECJ)+RND< 

I )*5: IFCCQCM))<0THENCCOCM>)=a 

1880 I=I-C I=a)+CI=1):T=J: J=QCM):G0SUB153 
B; I=I-Cl=e)+C 1=1 ); J=T:U=I 

1B30 PUTSPR lTEJ+1 , C XC J >*2B+6B-yC J )* 1 B , YC 
J)»]7+6). 1*2+4, AC J )+ 1*5 

1 18B IFCCOCM))=aTHENl=l-CI=B)+C 1=1 ): J=QC 
M):G0SUB133B: l=I-Cl=a )+CI=l ) 

I I IB FORZ=aTO20aB:NEXT:GOTOG2a 
1 128 ■ MAGIC 

1130 1FBCJ)=3THEN1220ELSE1FBCJ>=4THEN138 
aELSEU=I : I=I-C I=8)+C 1=1 >:T=J:M=1 : FORZ=aT 
O58B:NEXT:GOSUB1510: 1 = I-C 1=0 > + C 1 = 1 ) 
1 140 J=RCM) : PUTSPR I TE0, CXCRCM) )*20+62-YC 
RCM))*10 , YCRCM))*17-2). 12, 10 : I=l-C 1=B )+C 
l = l):G03UB153a: l = l-C 1=0 ) + C 1 = 1 ) 
1150 S=STICKCI ): IFSTRIGC 1 )=0THENIFS=1 AND 
M> I THENM=M- 1 : BEEP: GOTO 1 1 40ELSE 1 FS=5ANDM< 
yTHENM=M+ 1 : BEEP : GOTO I 1 40 ELSE 115 
1 180 J = T:L=RCM): I FB< J )=0THENDC J )=DC J )- 1 
:ECL)=ECL)+4+RNDC 1 )*3 

1 170 1FBCJ>=5THENDCJ)=DCJ>-1B:CCL)=CCL)+ 
50+RNDC I )*ia: IFCCLJ>C1CL)THENCCL>=CUL) 
IIBB IFBCJ)=6THENDCJ)=D<J>-1B:0CL)=DCL)+ 
3B+RNDC 1 )*10 : 1FDCL>>D1CL)THENDCL)=D1CL) 
1 13B K=l*123: J=T:GOSUB1530:FORL=1T012:SO 
.UNDl .a:S0UND7 ,62: SOUNDS. 1 4 : SOUND0 . 22a-L* 
6 

120B CIRCLECXCRCM))*2a+76-Y<RCM)>*ia.YCR 
CM ) >* 17+ 1 4 ) , L . 3 : NEXT : DEFUSR= 1 44 : 2=USRC ) 
: FORZ=0TO1 0B0 : NEXT : GOSUBl 580 
1210 I=I-C I=a)+CI=1):T=J: J=RCM):K=1*123: 
GOSUBl 530: !=!-< I=8)+C 1=1 >: J=T: FORZ=0TO20 
a0:NEXT:GOTO820 

1228 I=l-C 1=0)+CI=1 ):U=I :T=J: J=G:G0SUB15 
IB: GOSUBl 530: I = I -CI =0 )+C 1=1 ) : J=T : U= i : K= I 
* 1 23 : FORZ=OTO5a0 r NEXT 
1230 DCJ)=DCJ)-15:G0SUB153a 
1240 FORL=lTO6:ClRCLECXCJ)*20+82+C 1=1 )*1 
2-C I=a)*L+C 1=1 )*L-YCJ)*1B, YCJ)*17+10),L, 
10: NEXT 

1 250 SOUND0 , : S0UND6 . 25 : S0UND7 , I : 30UNDB . 
13 

I2B0 FORL=0TOCH-1 )*20STEP5:COPYC I*13B+5, 
160 )-C l*130 + 5 + CC 1 = 1 )-C 1=0)>*L, IBB). ITOCx 
CJ)*20+83+C 1=1 )*38-YCJ)*10. YCJ)*17+6),0: 
NEXT 

1278 G0SUB157a:CCG)=CCG)-35+H*4: IFCCGX0 
THENCCG)=0 

1260 l=i-C 1=0>+CI=1):U=I: J=G:K=l*123:GOS 
UB1530:GOSUB!56O: IFCCG)=0THENJ=G:GOSUB13 
30 

1230 I=I-CI=B)+C 1=1 ):FORZ=OT0200a:NEXT:G 
OT0628 

1 308 DC J )=DC J )- 1 5 : FORZ=0TO5Oa : NEXT : GOSUB 
1530 

1310 I=i-C !=0)+CI=l):U=l:T=J:GOSUB1510 
1320 FORL= 1*7T0 1*7+6 :J=L; 1FYCL)=8THENNEX 
T: GOTOl 370 

1 330 GOSUBl 530 : S0UND6 . 30 : S0UND7 . 23 : SOUND 
B, 16:SOUND12,B0:SOUND13,0 

1340 FORM=0TOYCL)*17+6STEP4; COPYC 250.0 )- 
C255.M). lTOCxCL)*20+7e-YCL)*10.4>,0;NEXT 
1350 CCL)=CCL)-5: ! FCCL XOTHENCC L )=0 
1360 GOSUB 1 5 70 : GOSUBl 530 :F0R2=0 TO 1 000 :NE 
XT: GOSUB 1560: IFCCL)=aTHENGOSUB1330 : NEXTE 
LSEMEXT 
137a 1=1-C 1=0)+C 1=1 ): 0070820 

13B0 ■ *)l')\,-fy 

1330 M=l 

1 40 a FORZ=BTO300 : NEXT : I F I =0THENCOLOR=C7 . 

M.n.7)ELSEIFl = lTHENCOLOR=C7.5 + M--3,M.M) 

1410 PUTSPR lTEJ+1 ,CXCJ)*20+68-YCJ)*10,YC 

J)*n+6).7, ACJ)+1*5:M=M+1 : I FM<8THEN 1 400 

1420 PUTSPRITEJ+1 . C . 2 1 7 ) : XC J >=9 : YC J )=B ■ 

TC 1 )=TC 1 )+l 

1430 IFBCJ)>0ANDTC 1 X6THENRETURN 

1440 I=l-C 1=B)+C 1=1 )+l lFOR2=OTO3000:NEXT 

: F0RL=8 TO 1 4 : PUTSPR I TEL . C . 2 1 7 ) : NEXT 

1458 FORL=0TO2 : FORJ=4+LT0159STEP3 : LINEC6 

, J)-C25a. J), 1 :FORZ=aTO10:riEXTZ. J,L 

1460 COLOR10. 1:FORL=0TO6:COLOR=C 10,L,L 1 

) 



140 




piOGMAMffOUSE 



147a PSETC 100.65 3, 1 :PR1NTI»1 . "Turn " ; A: PSE 
TCS0,95>, 1 :PR1NT«1 . "Player": I ; "Win ! "-.FOR 
Z=aTO50:NEXTZ,L 

14BB DEFUSR=!4'V:Z=USRt0):B$="V15T120L15E 
R64ERG4ERB4A4ERG4ERe4ER64" : C$="R64e4RG4E 
Rl 6RB4ER64ERG4F+RG4G+RG4fl2 " 

149ffl D$="02"+BS+"01A402"+C$:PLAYD$,"05"+ 
BS+"04fl405"+CS 

1500 1 FSTRl G< iANDPLAYC fl )=0THENRUNELSE 1 5 

00 

1510 COLOR! l.U*2+4:K=l*I23iLINECK+e, 162) 

-<K+127.209>.U*2 + 4,BF:LmEc:K+25, n5)-CK+ 

55.2a5>. 15. BF 

152e PSETCK+7a. 178 >, 1 *2+4 : PR 1 NTS 1 , "Hp " : P 

SETCK + 7IB. 188 >. l+Z + llPRlMTttl . "Mp" :PSET':K+ 

70. 19B). I*2+4:PRirJTttl . "Sp";RETURN 

1530 COLOR. U*2 + 4iL1NE':K+2B. 1G5)-(K+105, 1 

74>.U*2+4.BF:L1NECK+B0, 175 >-CK+ 120 ,205 3 . 

U*2+4,BF 

1543 COLOR15:PSETCK+20. 165J, 1*2+4:PR1NTB 

I ASCJ):PSET<:K+85. 165). I*Z+4: PRINT** 1 . B$C 

J);PUTSPRlTEI + 15.CK+32. 182) .U*2+4. fit J )+U 

*5 

1550 PSET<:K+84, 178). 1*2+4: PRINTBl ,CCJ):P 

SETi:K+84. 188). I*2+4:PRINTttl , DC J ) : PSETCK+ 

84. 198>, l*2+4:PRINTttl,F(J):RETURN 

15GB COPVtffl,0)-C246. 157). 1T0C5 . 3 ) . :BETU 

RN 

1570 SOUNDB.30:SOUND7.23:SOUND8. 1G:S0UHD 

12. 15: SOUND 13.8: RETURN 

1580 DATA Wizard. 3, Priest. 5. Knight. 1 , Kin 

9.0.Warrior.2,Pliest.6,Wizard.4 

1590 DATA Ki ,Kn,Ua,Wi 1 .Wi2,Prl.Pr2 

1B00 DATA 160,70,28, 100 ,0,25, 120.81,38,70 

.60,5.80,50 ,8 

1610 DATAi 1-r -rr— .T it—. 

1620 DATA'—. I I 11 I hH I I 

1630 DATAh- ' --^ ^—'-^H-'— '. 

1840 DATA" m i — i i — iti — i 

1650 DATA" AND I t I I — II -r I I 

1B60 DATA" -^ -^ 4.1— lii — < 

1670 DATA aAaF0FOF06008FlFlFlFlFlFlF3EBE 

0F8080 102838 10 183070 10 IB 10 1010 10 10 

1680 DATA 06BF0C0E0BOF3D3OFF20152E040A0E 

0F80aiZIBB08602OG068F8202080OeB0008B 

1G90 DATA O80002a3070507QO860E0FO7080B07 

07 0080000 O800A9C3A942BCO 30 40408 000 

1700 DATA 183E0FOCaF0E0FOFOF8F0FlFlF3F3F 

7 Fa00006a90C0'lFCF47 43 40 40400008 080 

1710 DATA OO0B0FOF060Offl70F0FOFO600OE!F!F 

3F0aO00E0A8E04FCF4F4740O0800OOOOO0 

1720 DATA O10108141CO8O8a30E0e08B80e06OB 

a85OFaF0F0GO00F0F3F8F8F8F8FB7C7OFO 

1730 DATA aBO0O00006B40606lF04O40iaBaB00 

0a60F03a7B00FBBC8CFFO4A874205a78FO 

1740 DATA 0B000Ba0ai503B5C291403O102O2ffll 

830aB040C0E060E0aOB070FBE010D0EBE0 

1750 DATA 00fflO60903O203F2F2E2C202OOa0001 

01 187CF030F07OFaF0FBF0F0F8F8FCFCFE 

1760 DATA 080O70507B203F2F2F2E0000Ba0000 

O0006OF0F06000£0FOFBF0B00B7aF8F8FC 

1770 DATA 2,1,1.2,2.3,1,4,2.5,1.6,2.7,7, 

1,8.2,7.3,8.4,7.5,8,6.7,7 
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7l5t* -Hover Jewel- 



1991 Y. Aoki 



CLEAR 100. 1HCFFF:SCREE^ 5, 2: COLOR 11. 

i;CLS 

DEFUSR = SHD0ft0:DEFINT A-Z:OPEN "grp:" 

#1 

ON INTERVAL^30 GOSUB 780 

PRESET (64, 96) :PR1NT 91. "HOVER JEWEL" 

DIM P(M. 11).ST(10, I0),SN(4),FL(4),NX 

.NY (8). 0(109) 

i AD=8HD000 



110 READ AS;!F AS<>"t" THEN POKE (AD) , VAL 

("!,h"+AJ) ;AD=AD+l:GOT0 110 

\20 FOR 1 = 1 TO 7 STEP 2:READ NX(I),NY(I) 

:NEXT 

130 O(0)=3G;Q(t) = 12 

140 FOR J=0 TO lliFOR 1=0 TO 2 

150 READ Aj:A-VAL("Sh'+AJ) 

180 FOR H=0 TO 2:0 (J»9H+H«3+2) =A« (4+H) 

170 NEXT H, i. JiCOPY Q, TO (12.0).! 

180 FOR 1=0 TO 3]:READ AI:A=VAL CSh'+At) 

:VPOKE(1H7S00 + 1), A:NEXT 

190 COL0R=(14, 3,3, 3) 

200 PUT SPRITE 0, (0.217), 15, 

2)0 PLAY"t255vl5s0fn3000o6" 

220 VX-&H7601:VY=iH7600:AD=&HD100 

230 MS=0:RO=1:RESTORE 1250 

240 ' round start 

250 CLS:LINE(47. 15) -(208. 176), .B 

260 FOR J=l TO t0:READ At:FOR 1=1 TO 10 

270 P(I. J)=VAL(M!Dt (AS. I, D) :NEXT 1, J 

280 GOSUB 950:GOSUB 810 

290 PRESET [48, 184) :PRINT #1, "STAGE ":H0 

300 PRESET(152, 184) :PRINT #1, "MISS=" :MS 

310 X=I;Y=I0 

320 VPOKE(VX),X*ie+32:FOR 1=0 TO Y«I6:VP 

OKE(VY), I: NEXT 

330 INTERVAL ON 

340 ' main 

350 A=STRIG(0) OR STfllG(1):IF A THEN 670 

360 A=ST1CK(0) OR STICKS) :IF A MOD2-0 T 

HEN 420 

370 XX=X:YY=Y:X=X+NX(A) :Y=Y+NY(A) :P=P(X. 

Y) 

380 IF PEEK(AD+P+5}=0 THEN X=XX:Y=YY:GOT 

420 ELSE GOSUB 450 

390 A=AD+P(XX, YY) : B=AO+P :C=FL (P (XX, YY) ) * 

1 

400 INTERVAL OFF:POKE (A) . C:POKE (B) . 0: INT 

ERVAL ON 

410 IF ST(X, Y)=l THEN 500 

420 IF PEEK(AD + P(X. Y)+5) =0 THEN 670 

430 GOTO 350 

440 ' idou 

450 FOR i=2 TO 16 STEP 2 

460 VPOKE{VY), YY*16+I»NY(A) 

470 VP0KE(VX),XX*16+I*NX(A)+32 

480 NEXT: RETURN 

490 ■ jewel 

500 LINE (X«1 6+35. Y*1 6+3)- (X*1 6*44, Y*16+l 

3). P, BF:PLAY"c' 

510 ST(X.Y)=0:SN(P)=SN(P)-1 

520 IF SN(P)=0 THEN FL(P)=-1 

530 IF SN(1) tSN(2) +SN(3)>0 THEN 420 

540 ' clear 

550 INTERVAL OFFiPOKE (AD+P) , 0: INTERVAL 

N 

560 FOR 1=Y»16 TO STEP -1 

570 VPOKE(VY). I:NEXT;VPOKE(VY), 217 

580 PRESET(104.84) :PR1NT #l."CLEARr 

590 PRESET( 72. 96):PRINT »1.'PUSH SPACE 

KEY" 

600 PLAY"o6eg8o7c. d8e8o6ao7d8f . g8f8ecdo6 

bo7co6" 

610 IF (STRIG[0) OR STRIG(1))=0 THEN 610 

620 RO=R0+1:!F R0<1 I THEN 250 

630 PRESET (64. 84) ;PRINT #1. "ALL STAGE CL 

EAR!" 

640 PRESET (72, 96) :PRINT #1." THANK YOU 

650 GOTO 650 

660 ' miss 

670 PRESET [104. 96) :PRINT #1. "MlSSrf 
680 PLAY"co5b32agf e32dco6" :VPOKE (VY) . 21 7 
690 IF PLAY(0) THEN 690 

700 MS=MS+1:IF MS<4 THEN GOSUB 950:COPY( 
48. 16) -(207, 175), 1 TO (48, 16) . 0:GOTO 300 

710 ' game over 

720 INTERVAL OFF 

730 PRESET (96, 80) :PRINT SI. "THE END" 

740 PRESET(72.96) :PRINT tl. 'PUSH SPACE K 

EY" 

750 IF (STR1G(0) OR STRIG(1))=0 THEN 750 

760 GOTO 230 

770 ■ time interval 

780 INTERVAL OFF:Z=USR (0) : INTERVAL ON 



790 RETURN 

800 ■ gamen 

810 FOR J=1 TO 10:FOR 1=1 TO 10 

820 A=P(I, J) :IF A=0 THEN 910 

830 IF A=4 THEN L INE (I* 1 8+33. J*1 6 + 1 ) - (I* 

16+46, J* 16+14). 14, BFiGOTO 910 

840 B= (P[l . J-1) =A) 

850 C=-(P[I+I. J ) =A) 

860 D=-(P[I . J+1) =A) 

870 E= (P(I-1. J )=A) 

880 LINE [1*1 6+32, J*1 6) - (1*16+47. J»16+15) 

, A+3. B 

890 L INE [ 1*1 6 + 33+E, J*l 6+1 +B)-( 1*16+46+0. 

J*16+14+D) , A. BF 

900 COPY(A*12,0)-(A*12+11. 11). 1 TO (1*16 

+34, J»16+2), 0. TPSET 

910 NEXT I, J 

920 COPY (48. 1 8) - (207. 1 75) . TO (48. I 6) . 1 

930 RETURN 

940 ■ start sub 

950 FOR 1 = 1 TO 4:FL(1)=1 :SNiI)=0:POKE(AD 

+ 1). 1 :P0KE(AD+I + 5), 7:NEXT:P0KE (AD+5) , 

960 FOR J=l TO 10:FOR 1=1 TO 10 

970 A=P(1, J) :1F A>0 AND A<4 THEN ST (I. J) 

= 1 :SN(A)=SN(A)+1 ELSE ST (I. J) =0 

980 NEXT 1, J: Z=USR(0) : RETURN 

990 ' machine data 

1 000 DATA DD. 2! . 00. Dl , 06, 03, DD, 7E, 06, DD 
1 01 DATA 5E, 01 , ID. 83, F2. I C, D0. AF, DD, 77 
1020 DATA 06, 3E, 01, DD. 77.01, 18, 13. FE. 07 
1030 DATA 38. 0C, 3E, 07, DD, 77, 06. 3E. 01.DO 
1040 DATA 77.01, 18.03,00. 77, 06, DD. 23. 10 
1050 DATA D3, F3. 3A, 07. 00. 3C, 4F. 3E,01, ED 
1060 DATA 79, 3E. 90, ED. 79. 00. DD. 21 , 00. Dl 
1070 DATA DD. 5E. 06, 7B. 87, 87. 87. 87, ED, 73 
1080 DATA CB, 38. ED, 59. DD. 5E, 07. 7B, 08. 3F 
1090 DATA ED, 79, ED, 59. DD. 5E, 08, 78, CB, 3F 
1 100 DATA 87, 87. 87, 87, B3, ED. 79, AF, ED, 79 
1110 DATA 21, 06. DS.06. 03. 5E. 7B, 87, 87.87 

,1120 DATA 87, B3, ED, 79. ED. 53, 23, 10, F2, FB 
1130 DATA C9, t 

1140 ■ idou data 

1150 DATA 0. -1, 1,0, 0. 1. -1, 

1 160 ' graphic data 



0000. 1001. 0000 
0100. 1011.0010 
1101. 1011, 10)0 
1000. 0010. 0001 
0000. 01 10. 0000 



1 1 70 DATA 0000, 0000, 0002 
I 1 80 DATA 0000, 0111, 0002 
1190 DATA 1100.0111,0001 
1200 DATA 0101.0001.1002 
1210 DATA 0100. 0001. 001? 
1220 DATA 0000. 1001. 000Z 

1230 ■ sprite data 

r 240 DATA 00. 00. 03. 04, 09. 0A, 1 2. 1 0, I 0, ! 7. 
28, 20, 18. 07. 00. 00. 00. 00, C0. 20, 10, 10. 08. 
8, 08. E8, 14, 04, 18. E0. 00, 00 

1250 ' stage data 

1260 DATA 4424444444,4424444444.42024444 
44, 2202234443, 4202433333, 4424443334. 4421 
114444, 4411011444. 4441114444, 4444144444 
1270 DATA 01111 11114, 1104000001. 10022222 
01. 1422330201. 1023333201, 1023333201, 1020 
332241. 1022222001. 1000004011.4)11 111110 
1280 DATA 3330000033.3330333233,33313330 

00. 0020000000. 0333323330, 0333303330, 0000 
013330, 0332330020, 2330330333. 4000330333 
1290 DATA 0000011111.3333310001,30000100 

01. 3000010001.3000010001.3333312222.0000 
010002. 0000010002, 0000010002. 41111 12222 
1300 DATA 0400000004.4100000022.01133332 
22, 0110000222.0111 102222. 1 1 11022222. 1110 
000220, 1 1 13333220. 1 100000024, 4000000040 
1310 DATA 2222000000,2223333220.22333333 
20. 2333333330. 0333333330, 0333333330. 0333 
333330, 0133333320, 4113333222.4400000020 
1320 DATA 1000102222. 1101122000, 11111222 
22. 1010100022. 1000122220. 1330003300, 0033 
033000. 0003330000, 0033033000, 4330003340 
1330 DATA 4200000024.2220000222.02222222 
20. 0021223200. 0022222200. 0022222200. 0023 
221200, 0222222220. 2220000222, 4200000024 
1340 DATA 3333323333.3330000333.33331333 
33, 3303003303, 2103030303, 3303330301. 3333 
003303. 33331 33333. 0000000333. 4333323333 
1350 DATA 0333330222.2300033302,20110300 

02. 2010033302.2010113002, 2011103330, 2000 
200033.0220111003,0022201110.4330220011 
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^flm rrTi^ (oa-CTiip, 



^T«l|8(DilA 



nu 
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sis««1 snti 



T.-v-y-i] \ 



::g E 



^0462-63-9898 



tt^ig^ 



U>SM % 



m^ 







a046B-43-177lT, 



Ox-y-T-t 




~m 










DDmOD 



a WoRo 




Q045-363-7044 



TKD-mSD^OK/ 






..will illAJ»MJ4'ra^ 



FS-AIST{MSX-TURBO-R) 



87, BOOR 
7- BOOR 
B.eOOR 
2,500P5 



^■fi-g-f1-i06.900B^ 5l— "^ • ^''Y^ffi 



8*70dnXl2lHl 



6v000nx'8[il 



4i6OOnX2^0 



3>200nX36[l] 



*~:^j:t 4a 



*-:'-^ 4-1, 



^:~±7. 4L 



* - :»- :^ 4 L 



AlSTJifcL^-y-A-tvl- 



FS-A1ST(MSX-TUR80-R) 

TH-UG2(?U-t-[^«,*fflCRT) 

FS-VC30I 1 MMmSHty-7- >\-) 

EGG - MOU SE (-?';' ::^) 

XEl-PR0(a«SCi;g-f::^x-fv^3>-ha-'7) 

7W 

?-fJ^?:^7'— >3;^DX3-§ 



y^>'402 



A\ST^<VZi>Xn-^-yh 



87, BOOR 
60, DOOR 
3,OB0F] 
5,8B0H 
9.500R 
7. BOOR 
B.BOOR 
3,880R 



Itffi' 



7'-7>472 



A}ST7k^ = iL-i>-y?izyb 



FS-AIST(MSX-TURBO-R) 
TH-l4G2(TVl^iE,MSXl?fflCRT) 
FS-VC30llA(x<:^7'u-fS«l-*— 7;i,) 
FS-PCI(4BK yh. A^-^Hi^yU^?) 
SRS-150EX(BftiSSi.7':'yrt«Xf-fl) 
MiDW'?;i.:^(t^*-f^HEv7^.MiDK>?-7i<,:^#) 

gisrseitffiiBii (-Viit— >3>-^-A) 

7■U>•?ffl«E(A4+^'f X) 100«[ 
FS-JMI-Ht^-?:^) 

WD-40iG(SS!S!4&'<y3>T-xi',7'?;^-T— T'Ji-ft) 

wT-oolG(tB?-,A-;^|;7^-hTW^B«fl!} 



B7.800R 
60,OOOR 

3, DOOR 
59. BOOR 
24, BOOR 
I9,800R 
69,800R 

9.800R 
14, BOOR 

2,500R 

2.9B0R 
400R 

7,500R 
29,aOOR 
1 9, BOOR 

■<t-\£X 



Mfl86.5B0R-» rjyx — "7' "P^^M 



13>700nX'2[^ 



9»400nxi8ia 



7j200rx2''ei 



5vOOOnX36la] 



*'-:^:;t 4 L 



*- + ;^ 4U 



#-:*-;^ 4:L 



*-:^;t 4 L 



FS-AIST(MSX-TURBO-R) 

TH-l4G2(7^1^t:rtJK, SfflCRT) 

FS-VC30llA(«:fflffitt^-7'Jt) 

EGG-M0USE(-7'>;^) 

FS-PCI {48K'yl-, ft7-*Hi:?y';>?) 

sRs-i50Ex(Pfeas!,7'>7'i^a;^t--ft) 

7*ij>?-fflift(A4-<j--rX) 100ft 
WD-40[G{Sfffi4S'<y;i>7-';^?. v'5;^?-7';i.#) 

WT-001G(ffi^,*;^i)7f-±T»SB««) 



B7,e00R 
6O.000R 

3,000R 

5, BOOR 
59, BOOR 
24, BOOR 

3.8S0R 

400 R 

29,a00R 

19,800R 

•if—iix 



rttZ95,0BOR-> I^X^y ' 7^^M 



FS-AIST(MSX-TURBO'R) 
FS-PCI (4BK';/h,A^--!!(H£?7'iJ^?) 
MBS-EOIIDC^HlB^i:-?:-) 
HBS-EOIOD(-SlltW^) 

7");'?fflte(A4-tJ--r-X)100ft 
FS-JMI-H(^'5X) 



10v000p9X1S[B| 


*-+XZI.700RX 30 


6,d00nX24[n] 


#-+:^26,600RX4[nl 


4fOOORX36@ 


#--f :^19.600Rx 6lH] 


5l700nX48Ei 


#-+;t 4 L 



87, BOOR 
59, BOOR 
7, BOOR 
7, BOOR 
7, BOOR 
9, BOOR 
2.980R 
2,500R 
400R 
7,500R 



^<i^lt412,58QP3-> f^X—y ' J'^'^M ^fiE^ttl94,18DR-> "5 I " "7 ' P-f ^fiB 



7»000«x 36(51 


*-'^:^22,600Rx em 


5,000nX48lPl 


*--^:^20,800RX 8lEl 


3>OOOn>^60[si 


'+;--^:^24.900Rxi0ia 


69200^X720 


^•-i-x 4U 



1l9000nxi2ii 



7»OOOnXi80 



5,000rX24{p| 



5f700BX36[El 



*'--^:5;24.500Rx 20 



*-■ ^X20,400RX 3[S] 



*~+X18.600RX4[p| 



#- + X 4U 





:^^>4I1 



98DX2fcH^«*-l!y|- 



PC-9B01DX2(l6t-;'l-CPU802B6ffie.FM&Si^«) 
CU- 1 4GD(0 , 39n,r, , l^m^^mCRT^M-^m 
AM-350('<:xv'5;^,350fl'>>-H±») 
7D-yf— IHW-ir— ;^ 



318.000H 

69. BOOR 

6- BOOR 

2,9aOR 

1,OO0R 



rft39B,580R-> IJ7X— "7 • ^'f^ffli 



PC-986lDX2(16t'vhCPU802B6eK,FMI 

CU-14FD(0,3i;g,ftS««,-?^(l,h^#) 

iS;'»tSaglS II (-VJiL— i-a>^-A) 

K *■>• (n-^UT" I'-f > ;»■ y-A ) 

■l^-f l^i-h j'b:'?;^ ( 7- K "^^^^ ■*■ — iF=- A) 

±iKi9il|-90{->:3.U— >3:'-V-A) 

PS98-019-HMW(a*SMS-DOSVer3.3C) 

AM-350('-'::^vOX,350/)O^'hf±«) 

^■5:^ *> yK v^j^ iR W^-;t ) 

WD-40IG(SS4S'<V3>7--X?,v'5,Zx-yj[-1*) 

WT-00IG(4g^,S-:xg7>±T»lBfil«) 

Sffi-^ff-504, 



318,00OR 
74, BOOR 
9. BOOR 
6. BOOR 
14, BOOR 
9, BOOR 
9, BOOR 
6, BOOR 
2,980R 
1.000R 
29. BOOR 
19, BOOR 



0120-0 
008 8-2 

OaSH^iooo^ 

i;i^0466(43)1775 ii gifS 

^Lm 011(771)4971 mm 0542 

mm 0198(24)3172 Sai 052(5 
i\\}^ 022(267)5371 :^m 06(3 



9jOOOrX24P 


'^-■^:^26,900RX4[E| 


5,000^x360 


*-+;^26,500RX 6ta 


3,000nX4Slp| 


#-+^26,4ooRx em 


6v2OOnx60[§] 


yf'-i-X 41, 



10fOOOnX30[u] 



80R-. ^T.—V''P^m% 



89000^X36111 



6v000rX48[5| 



7)8OOnX60[5j 



•■t^— ^A23.200RX ^m 



*--^:^23,oooRx em 



*--^;^i9,900Rx an 



7r--±7. 4L 




[F-O 



x^/ 



Msxo^i^iti^^i^tb^^ux'r^-i'^vvviivo 



7'7>-476 



y-5>-475 



FIXVfc«m**-t-yh 



HB-F1XV(MSX2 + ) 
FS-PWt (^-T'DrtaT'ijy?) 
a!H-S^3-1''--''yK 
y'J>?ffi»ft(A41H-X)100ft 



S(ffi-^tf-122,500R 



69, BOOR 

49. BOOR 

2,500R 

40qR 



HB-F1XV{MSX2 + ) 

CPS-14FI(|-''vhb;-yf=0,37;iJ,SBflfl-7-CRT) 

FS-VC30l1A(7=-f;^-7-^-rffiffi->— 7-71-) 

-^-72(p-Jl.yi^^>?-y-A) 

xj<5;i.KKTSi-(n— ([.yw^-^y— A) 

FRAYH^-^StStT-^i-a^^r-A) 

■^i-y ■ /"-f »7"+>;^*-yh 

^ffi-i-|H58,200R 



69, BOOR 
6O,000R 
3,0OOR 
8, BOOR 
8, BOOR 
7, BOOR 



HB-FIXV(MSX2 + ) 

TH-l4G2(TVf*5ie,MSX?ffflCRT) 

FS-VC30l1A(T-.Y;^-7L-<ftK-y--771') 

HBP-FtC(24Ky|-rt-7-*lK^yV>7) 

HBS-E011D(36*Bf^iy*-) 

HBS-E010D(;1iaS^} 

FRAY+^-:??f-(5(7:?>'3>y-A) 
aSfit^a-f'-yK 
yv>?fflKt(A4-it-fX)IOOtt 
FS-JM1-H{-7'5;^) 



69,800R 
6O,000R 
a.OOOR 
49, BOOR 
7. BOOR 
7. BOOR 
7,800R 
7. BOOR 
2,500R 
400R 
7,500R 



129800rX6@ 


^•-i-T. 4L 


6,600Rxi2ii 


^■-±7. 4L 


4»600fiXIBIm1 


^—■t-T. 4L 


3»500RX24il 


*-:^X 41, 



10>900nxi2[n] 



■* OT. — y ■ 7^1^111 ^1il5^?t224,200R.» ^^ I — "7 > ^ ^l^flj 



7f500RX!8[g) 



5j900rax 24191 



4v200rX36[u| 



^'-±x 4U 



*--^:^ 41, 



*-:^7, 4L 



*- + ;^ 4L 



12*000rX12|§] 


*-+;i24,800RX 20 


7|000rX 18151 


*-■ ^X24,800RX an 


5,000nX24[p| 


#-:h;^22.000RX 4 [h] 


6,|OOrX36[§I 


*- + ,:^ 4L 



^7>'409 



98DO + ftW*f»*-ty|- 



PC-98DO + (16t-'yhCPUV33ffii;,FMWiS*-Kl^W) 27B.OO0R 
PC-KDS53N(K'yHi'yf.0.3i;iJ,aSS®CRT,-f;H-^i1) 118,O00R 

PC-PR150T(80fiT,48KyhSv-Bie¥7-U>5') 64 800R 

:l-:/!■5WAVE(7-7■□V7^,i'-77^■y?^^EE,ii^t«a&#) 9, BOOR 



-f=7>Ml 



'i%QO+ii^m\^'T-h.■^l•A 



PC-98DO+(16t--y|-CPUV33tgIfi.FM§igrt«) 
PC-KD8S4N(K'yl-fy?0,39™,a»taCRT,?)l.h^#) 
AM- 350('<:^ ?■?;*, BSO^-^i-l-ttaS) 
7Q>yb:-llSlrt-y-::^ 

■?i-7' ■ T'-f y>f'+:';^4-yh 



27B,OO0R 

B4,800R 

6, BOOR 

2,9B0R 

1,000R 



:^1l-g-|t373.580ffl ^ 


o:L--^*y^^m 


8,000rX24@ 


*-■ ^:^26,500RX4[11 


59000rX36[h] 


*-+,;^22.000RX 6 


3,000^x48151 


#--^:^22,900Rx 81p] 


5»700nx60[5i 


*-'^:^ 4 L 



PS9B-019-HMW(B*fiMS-DOSVer3,3C) 

AM-360(^<7.V'?X,350fl't'>httSJ 

.□■yf-WW-S— ;^ 

yi;>i'fflK(A4-y-fX)100«! 

-=i">:7 -t:-^ ^yK vo ;^ iRIrt-y- :x ) 

WD-40lGtSi5f4e'<y3>f--:;t?,-7'?;tx--7'Ji.#) 

WT-001G(te^.SJ^iJ7l-±Ta!B««) 

Oi-7 - /''f j<>x-^>:^+>yh 



^iffi-&tt544,380Ri 



9. 

6, BOOR 

2.980R 
400R 

1,OO0R 
29, BOOR 
19, BOOR 

^11)339, OOOf^ 



PC-98DO+(16t'yhCPUV33ffiS,FM§S*-Krt«) 

PC-KD863S(7'>7-rti!,7:t-AffiK.lB»»JSCRT) 

ig«l7)PHS:i?aSfi!(->;i^-i-3>^-A) 

A5l)*-C-*T-9HI (■>;3.t— >3>-y-A) 

:*:«!§ Ill ■90(->;i^—>3^-!r-A) 

7->X|-U?-(iaj|l9-7'0y7h} 

PS9B-OI9-HV(a*gMS-DOSVer3.3C) 

AM-350('<;tV'>j:^.350:^'?>H±«) 

7D-yf-lEW'ir-X 



^78,000R 
99. BOOR 
9, BOOR 
I2,800R 
9, BOOR 
9,700R 
9, BOOR 
6. BOOR 
2,980R 
I.OOOR 



119000rX24@ 



8vOOOrX36[§I 



5,OOOrX48E) 

7^600^x60^1 



Sfi-&lt440,480R 



+;-+,X27.600nx 411 



#- + X2O,90ORx 6(51 



^~:J-;t24.200Rx 8111 
^^i-i-X 4U 



- ^i-:7-7'-<^ii 



7,000rX36|51 


'j-;--^:^2i.400Rx em 


5,000rX 48111 


#-+,^19.a00Rx SEl 


3vOOOrX60I1] 


#-■ :*-;^24,OOORxi011I 


6,100rX72@ 


^•-±7, 4L 



7"?:^404 



PC CLUBa«BI#M'L.-«APl-b/h 



y-5>47a 



, PC CLUBJifeL^-r-A-t-yl- 



PC CLUB 



PC-286C-STD(l6t-vhCPU8028Sfge. FMgiSrtiBE) I68,OOOH 
PC-KD854N{KyhtVf-0 39m™,S»«^CRT.f-JS.h-&#) 84.8000 

PC-PR102TL3(80«T,24Kyh:^^-SvR¥3f¥yiJ:^?) SO.OOOR 
CRI-UN0(XP^'7-7'n.An«tt»:.?77-c:'?iT-'-i:?¥) 9,700fl 



yv>403 



PC-CLUBfcmS^-trvh 



>C-286C-STDC16t'vt-CPU80286ffitK,FMg«rt«) 168.000R 
•.U'HGD(y-./\-iLy'f'OMV).ltf>m^SCRJ.^M-^W 69.800R 
iM-350{'<;t-7'5:x,3S0ftO:^H±«) 6,800n 



PS9e-OI9-HV(a*liMS-DOSVer3,3C) 

AM-350{'<;^v■t';^,350:'J'»^tt»} 
WD-40lG(iiiSi4S'<vzi>T-';^?.v'?:xx~7'M-f) 

y 1) >-?-ffl jft ( A4-»j--f X) I om 



9.800H 
9.800P3 
6. BOOR 
29.800R 
400R 
2J80R 
I.OOOffl 
I.OOOR 



PC-2B6C-STD(l6t;/hCPU80286}5E.Fr/^ilj'j«) 
CU14FD(K';'H^-:'-?'0,3U'KiBS«aCRT,?;l-h^W) 

sRs-i50EX(iftias.7^yrta!At*-A) 

PS98-019-HV(B*BMS-DOSVer3.3C) 



168,000R 

74, BOOR 

24.8O0R 

9. BOOR 

12, BOOR 

9, BOOR 

9,800R 

6, BOOR 

2,9BOR 

1.000R 



g™-g-|t244.600R-4. ^ I"^"^ • 7*f ^SfflB ^iffi-^tt374.08Qn 



|^ffl23S?000« ^f5^ti-32D.580Fq-» Q X — "7 ' ^^J^fflB 



129000rx'^i^ 


#-+-X26,900nx 2il 


8,000r'<'»^ 


*-- ^;^20.000RX 3lHl 


5>00OrX24@1 


#- + 7;22.100Rx 4E1 


6)000n>^3B!^ 


y^--i-7. 4L 




!!ia«)7iJ-5''ftil/r 



0-9898 

2- 



;9:00liS- 



/ 



(75)5076 
226)0286 
(54)0606 

81) 4325 

82) 5057 



m. 



^002(203)0811 
(^002(481)0562 
FAX 0466(43)1265 



:^;:?S/-A-t:-(Z?/\'f'xi>^>^ 




Ox-y^7-( 



A47'y-fJL/it'fXa)t^;^'\-X 




It 



i^^:::"' ""':::. '-^i\\\^ 



y'5>469 



98UFKmW4^-evh 



PC-9801UF(CPU-V30HL,3,5-f^'-?'FDD24}5IS) 
PC-KDB64N(K7^t■7?0.39SlJ.»SftSCRT,f■J^^^#l 



21B,000R 
84, BOOR 



:Sffi^tt302.BO0P3^ ^1-""^ • /'■Y'l^lffi 



9»000bxi8ei 


*'-+XZ5,OOOP3X 30 


69D00bX2')[p| 


#-■ ^X24,500RX 4[11 


49000^X3611 


;}i--^:^l8,200RX 6Isl 


5»500nX4BiH] 


if---y7. 4'L 



10>000bX18EI 



7,000hX24B 



4,000nX 36151 



6,300rX48[§] 



-+;- + ,X30.400RX 3[sl 



*-■ ^:^27,300RX 4[11 



*'--^:^24,300Rx 6 



if.-i-T. ti.\. 



7,000rX24E1 


.-f;-+:^25.BO0RX 4 


4,OOObX36[eI 


*'-+X23,300Rx 6 


3,000nX43lEl 


*- + :^19.200BX SE 



^7:^479 



PC CLUBJiai^i^a-^y^-texh 



PC-286C-STD(16t:yhCPUB0286tSiS,FMgiSrt«) 
PCKD853NlKyH:^v?0.3U«..g««SCRT.f-;l.hSW) 

SRS-l50EX(K«iS!,7'>7'P3«:^t-ft) 

PC-PRI02TL3(80«f.24Kyhg*fi!fte¥7'i;>?) 

7'UyA<^(iS^iBEnBBV7h) 

P598-019-HVfa*BMS-DOSVer3,3C) 

AM-350('<;^-7'?7„350A'»H±W> 

^ffi-&ft4B7,180R* ^I"~"^ • T'n l^lffl 



I68.000R 
I18.000R 
98.OO0R 
24, BOOR 
50,OOOR 
7. BOOR 
9. BOOR 
6. BOOR 
2,980R 
1,000R 



PC CLUB4'*Sti^?-^-t:':'l- 



I 7'7>405 
PC-2B6C-STD(l6t''/hCPU802B6fge. FMI^ 
PC-KD853N[K7l'f-y?0.31mm,S;lBftgCRT,?^;L.h 
VP-960PC(801ft24K';'hS'?-3l5^7'iJV?) 
Microsof t-Works('7-7'o, Sf|-Jt, ?v7,7-' 
PS98-OI9-HV(a*:gMS-DOSVer3.3C) 
AM-350('<X-v':?:^. 350»'^yH±«!) 

7n>yf-it8*ft'y- ;^ 

WD-401G(fiJM4a"*V3>-r;^?,V'?J^7— 7" 
WT-00iG(t5^. S,:^|)7^±Tliffi««) 
yVi-?fflHt(10-f>5^a»Effltt)500ft 
7'V>*ffl«t{A4+-fX)IOOft 






'H*) 



lea.oooR 

I18.000R 

I18.000R 

4O,OO0R 

9. BOOR 

6. BOOR 

2.980R 

29. BOOR 

! 9. BOOR 

2.000R 

400R 

I.OOOR 



S<ffil 



rtt516,580R* IJ7I^ "7 • P*f ^IBB 



8;000raX36[§l 



6,000^x48(51 



4,OOOpiX6o@ 



7,100„X72[§] 



--H--^:^25.500RX 60 



#-:^::^21,800RX 8[hI 



rtJ- + :^24,8OORxiO0 



*-:J-7. 1:L 



7,000nX36[i 


*-:f;j.27,50ORX 60 


5,OOOnX480 


*-+X24.600Rx 8® 


3,OOOnX60[Ei 


#-:*-;t28,lOORxiO0 


6»7OOrX720 


if-—rx tcL 




PC-980IUR{3,5<>f^FDDIS, l,25MB-RAMK7-f7'tafi) 
CU-14FD(K'j'hfy?0.3UiJ,iaSS!SCRT,f-Ji.hfrH) 



^■(i-&H-292.B00R^ 


5i-:7-7-Y^ffi 


I0v000nxi3(°l 


^;- + :^2O,5OORX30 


7,OOOrX240 


*--^:^i9,700Rx 40 


4,OOOnX360 


#- + Xi9,OOORX60 


5,600^X480 


if^—TT, ts.\^ 



y=7>-i7\ 



98URSfiH^#-G7h 



PC-9801UR(3.5-f>^FDD)t. 1.25MB-RAMK7-f7'lM) 
CU-14GD(K-yl-t:7-?0,39iU,«S«SCRT,f Jl.h-&#) 

AP 9oopc(8offi, 48K'yhas.afl7-»e?7'ij>?) 

^i-ftvWAVEC?-^^, y77^'y?, iifty7h) 

PS98-0I 9-HV ( B *BMS-DOSVer3 . 3C} 

AM-350('<::^-7'^::^,350S'>:^hf±«L) 

7-U>?fflKCA4-tf--<:j:) loots 

7Qvf-iKlrt->— :^ 

vo ;^ *>yK-7'5;^ «>«•>— .X ) 



2IB,0OOR 

69, BOOR 

94, BOOR 

9. BOOR 

9, BOOR 

6. BOOR 

400R 

2,9B0R 

I.OOOR 



Sffi-g-&t413,380R 



-!^ffl2Z9,SOOff 



1O»OOOrX240 


*-:*-,:^21,200RX 40 


69000^X360 


.-K--f Z2O.8OORX60 


4,OOOrX480 


*--^;^20.700RX8iHl 


69200nX60@ 


7f.-i-7. 4L 



PC-98O1DS2(32t>vhCPU803B6SXffiK) 35B,0O0R 

PC-KDa53N(K-y>fvf^0.31;iJ,a«SSCRT,?-Ji.h^#) IIB.OOOR 

AM-350('i;^-5-;'X.350»'5>htta) 6, BOOR 

7ayf-iKWy-X 2.9B0R 

v'5x^;-^yKv'?xtBltt'S— X) I.OOOR 

Sffi^lt486,7B0R^ ^I '^'J^'^WW 



9,OOOnx3Q0 



7iOOOwX360 



5,000„x48i5i 



7,3OOhX6O0 



*--tx23.500RX 50 



*- + .X24.200RX 60 



*- + X22.IOORX 80 



&^-±7. tCL 



y7>428 



9SDS2*J]-bmmi^-->-y7-^-yr 



PC-9B01DS2(32f'yKPU80386SX}SB) 35B.O0OR 
PC-KDB32CKyH::y?0, 31=1), ««««CRT. ■?;!.)-&#) 89, BOOR 

SRS-D3K('5-77-l3W,Xf-fli3wm:fciaSxf-fr>XxA) 20-BO0R 

;j.— >aB{ieitf^EEa#->x?A,giSf:^a.-j^#) isb.ooor 

AM-350('<Xv5X,350A'^>H±W) 6.800R 

Music-Bank (t-?«iSS) 3,500R 

7•|J>*<^(*MEllMy7^) 7. boor 

AP-600PC(B0ttT.24Kyt-:ft7-!WH(i¥7''J>*) 64.800R 

PS9a-OI9-HMW(H*eMS-DOSVer3.3C) 9, BOOR 

SE-b\3D('<'!:t-71imiiT'i^9)l-MS5'^-yV*-» 4,000R 

WD-401G(BtSJ4a''tyil>T-'X?,v'?Xx-y/l.#) 29. BOOR 

WT-001G(ffi^.SXlJ7^ilTMlffi««) 19. BOOR 

7Pyf-iteW-*— X 2.9B0R 

vOX+I-i-vKvOXiEJrt'ir-x) I.OOOR 

7'ij:^J'fflK(A4-i^'fX)IOO+S 400R 

Sfi^t1-777.280R* H7X "^ • T'^WflB 



149OOOnX360 


*--?-X35,70ORx 60 


119000^X480 


*-■ ^::t28.100RX sm 


9,OOOnX6O0 


*-■ ^X25,4OORX1O0 


1l95OOnX720 


#- + x 4-L 



''X68000:^U-:>'rJl^GOODS"l. 




^-sJ-^^U?- 




*^^-fe> 







X68PR01lfc-MW-y-A-tryh 



y7>413 



X6BPROI!fcWif«*-t;/h 



CZ-653C 



285,00OR 
79. BOOR 



[ y7>414 

CZ-653C 2B5,OO0R 

CZ-613D(TVrtiiRK■y^t■■y?0.3l™ftS«SCRT) I3S.O00R 

•Jiv • 7^-x(«:x?o-)^■>3.-x-f>■?■y-A) 8.800R 

-f>— >77-fKe;^?n-Jt-->i— 7^.f:'yy-i,) 9.700R 

?'-f■^v-f^?z;.-7(7■i'■>^>y-A} 8. BOOH 
iJ^y -7 :^?-(SS(')7? :--?■> -□-.'U7'u-i':^?y-ix) 8.800R 

SS;"5JSHi£iail(i-;3.u— >3>-i"-/.} 9.a00R 

JOV-CONT-Turbo3(aWst->3-f'<'yF)2* 4.400R 



rlt364,800n 



■* 'i?!— "Z^ • P-fiJ^fiHi siiffi^tt47o 3ooffl -» "^i— "7 • ^-fi^fiDi 



68000 






y-7>'416 



X685UPER*JW^»S*-t;■y^ 



CZ 604C-TN 348,00OR 

CZ-606D(|--';'hf-;'f^0.3UiJ,S»«JSCRT,-?;H-&#) 79. BOOR 

:Sfi^i1-427,800R^ ^I "J • /''f f^lffi 




CZ-623C-TN(B0MB'v-K7=^:^?itlE) 498.000n 

CZ -613D-TN(TV[*g«K->hb:-v?0.3lm^S)B«gCRT) 135.000R 





89000n><36{5] 



6v000r^^^^ 



4,OOOrX60's 



6>800r=<"ihi 



*—*-;^23,IOORX 6 a 



.-ti-:^7,19.900Bx 8 [el 



*--^X23,200RxiO[sl 



*- + 7, 4-L 



y7>415 



X53PROIlSgJjWiiS«-b-;'l' 



CZ-653C-BK 

CZ-606O-BK(K/he'y-f0.3lram,Sa«SSCF)T.?JH-&) 
AP-9O0l48K-yK «attfl5-I^K'57'U>-?) 

WD-401G(S{g!4S'<V3>T-';^:?.v'5::^^-7^;i-#} 
WT-001G(ffi^,«AiJ7h±Tiain«t«) 



285, 000 R 
79. BOOR 
92. BOOR 
5,a00R 
29, BOOR 
19. BOOR 
2,980R 
KOOOR 



t-at5l7. 



mR349,OOOf^ 



lOfOOORX^oi^ 



^,QQO„xsm 



6l000n>^t8In! 



7,800rx6oi^ 



#-■ ^X23.000RX 5 



#--^::t22.900Rx 6 [s] 



*--#-?ii9.800Rx as 



#- + ?L )i: L 







0120-0 
008 8-2 

tiMMII^10:00^ 

i;i^0466(43)1775 ii Si!§ 

^Liffi 011(771)4971 I^F^ 0542 
^f^ 0190(24)3172 Z^M 052(5 
fUj^ 022(267)5371 ^1^ 06(3 




X58SUPERfcMifMlDI-tyt- 




7'7:.^4I8 

CZ-604C-TN 34B.O00R 

CZ-606D-TN(K'yhey^0.3l™, ;aS1*/tCRT.-?^Jl.h^) 79,800R 
RX-X55{t:;'7-CD^->rt-fe) 43, BOOR 

CM-64{MI01giB'Ei^j--'l') I29,OOOR 

CZ-6BMl(MIDI-f>?-7i-;^) 26. BOOR 

Mu5icpR06BK(MIDI) (*»««. ailv^n 2B,800R 

v>yv-r7^iJir(IOIfliRM) 8, BOOR 

Mus rcStud I oPR068K{VJ^?^^3— ?=.<>■>' V7h) 28. BOOR 

^;"^3Eiteifti[(->i=L^—>3^->=-A) 9, BOOR 

7h;y?n* + vK(sij:5l4i:x?n-;un*>yhi-a,-7"-(>-i'-»=-A)8.800R 
7nyt:-iKlrt-y-;^ 2.980R 

vo;^*>vK-?oxiE«-y-;^) i.oooR 

^flli#H-716,380R* ^I "^ • T'-f if^ffll 



^ME^T^SS^S^ 



CZ-604C-TN 

CZ-606D-TN(K■y^t■■y■f0.31ram. ffiS««CRT,-?;i-H 

IO-735X(l36flT, fl^-- f>-*-:;i'yS'7'V>?) 

io-73cx(7'v>?ffii)t-y- yji.) 

CZ-6VTI (ft7— f >— >J.-yh) 
Z'sSTAFF-PR068K(a«ffi?'77<-y?y7h) 
GT-l0D0(A7-tf-f:<,'v>T=-(-?-f7'7)l-?i7— f>— :^j:5+-1-+) 
= 5220(:^*-i--^-ffia-i— yji-) 
70>yf-iStt-i— ::^ 

WD-40 1 G(ISS4&"'y3>t-'X^ , -7'?X?-7' Ji-#) 
WT-00 1 G(«^, :tf xiJ7h JiTHii««) 



348,000R 

r) 79, BOOR 

248. ODOR 

6,eOOR 

69, 800 R 

S8.000R 

79. BOOR 

7,500R 

2,980R 

I, DOOR 

29, BOOR 

1 9, BOOR 



12vOOORX3e[§i 



109000n>">si§l 



8vOOOnX60[5l 



10>400rX"ei 



^;--^x36.500Rx 6[51 



!ti- + ;^25.300RX8ia 



*-+-X24,00ORxi01sl 



>r^-±7. tsi 



7*-7>'4l9 



X6ESUPER HD ■? 57-rv?-trvh 



S11^tt95l,280R* ^X "i? • ^'Y'f^ffi 


18>OOOrX36I1 


*-■ ^:^40,300Rx ed 


14.000^x480 


*-:^7,32.700RX8l°l 


12>000nX6D|Hi 


*'-■ ^:^26,400RxiO[nl 


14.300nX72S] 


t^-i-7. 4-L 



CZ-623C-TN(80MB'\-Kx-fX?fgE) 49e.000R 
CZ-6l3D-TN(TVF*3il!K-/H:^-yf0.3UinaiS«®CRT) I36,000R 

AP-900(aOfiT,48Kyha=1.efl7-SHi:?7'iJ>-?) 92. BOOR 

= 8226(7'iJ>?SBf<r-7''t) 6. BOOR 

CybernotePR068K('<-V+Jl-7=-?-^-X) 19. BOOR 

CANVAS-PR06BK(«»fSJKn-?'^7-fy?'>-JH 29. BOOR 

KD-?'77-fy?7-f7'7'J-fVol,l B.BOOR 

-7-.::AJl-->3yK->;=L[ — ■>3>-^~A) 7. BOOR 

iE;"5I3Stti£ittlI(->i^i'— >3>'5'-A) 9. BOOR 

7D'/f-!RJfl-r-x 2 . 9B0R 

v'5;:^^>yKv'5XiR»fl-y-X) 1 .OOOR 

-51-7 • T-1M>7-t>::>.^-A ■tJ--liX 

S^^H-812.580R^ OX^'^'T'^^^ 



X6ESUPERfHDJPCM1$|5^4zyh 



14)OOOrX361p| 


!fi— ?-x39.iooRx eg 


11»OOOhX48[1 


#-■ ^X30.900RX 8lP| 


8>OOOnX60lHl 


*--^X33.700RxlOI51 


11.900RX72[el 


#--*-X /j:L 



I 7'-7>421 

CZ-623C-TN(80MB"-K7--f^?f5K) 
CZ-606D-TNtKyhey?^0.31r.roH(S««CRr) 
AP-eOOI80ffi. 24K-yt-»^-lftfc:¥yV^S') 

cz-bbmUmidki-?— 7x— ;^) 

Mus(cPR06BK(MtDI) (mifiai«, 3S*y7h) 

Mu5icStudioPR06BK(-i-."--?^U.a— T'.f>?'y7S-) 

MA-l2C(RiaSXl:r-?j)2S- 
7Dyt'— iiJW-*— X 
■7lP7.^-&-'H-70:^lt3tfl6 — X) 

S«-g-tt854.380R^ ^I "^ • 



49E.00OR 

79. Boon 

62.B0OP3 
e.BOOH 
72. OOOR 
2fi.BQ0R 
28, BOOR 

8 . BOOR 
28.BOOP3 

9 . BOOR 
28,0OOP3 

2.9B0R 
l.OOOH 



159000rX36[e] 


7ti-±XA3.mPiXGm 


12v000rX48[e1 


*- + X32,700RX8[51 


TOvOOOrXBOIBI 


*--^;^28,300RXI01Sl 


12*800rx 73151 


^•--f-T. tx L 



FMl \^VVI\I 



TOWNS-S0HfcWfPS*-fevl- 



FM-TOWNS-80H(85MB'^-KxV:^7?S«i) 623,000n 

FMT-DP534(K■;•^t■•;.^0,^8SV.S»(SSCRT) HB.OOOH 

FMT-KB105(JIS+-*-K, ■?>•+-#> 30,OOOR 
Sif«a*~#X?(*-*'X?ml8*-Jl-«'^4->i3.^-h) 12, BOOR 

■i y—:^7T-lK.7.-'<-i'^—7--<>->^¥--i^) 9. Boon 

7a.yf~WW-^-;^ 2-98DR 

v^^^^i-yKvOZMtt-y-JX) t.OOOR 

'^x-7' ■ 7'-fy>7^:^>A*■vl■ -tJ--t:x 






y-7>436 



TOWNS -80H*te=ii—>y?-b-;'t- 



ISvOOOnXsea 


#-■ ^:x39,400Rx 6 [si 


lOvOOOn^^BiHi 


*- + ;^32,400P3x8liI 


SiOOOr^^')'^ 


7ti-i-:^2%Mmx]Q]s\ 


llj300nx?2[^ 


*-■:*- 7, 'j: U 



623, DOOR 
69. BOOR 
30.000R 
3S-0OOR 
69. BOOR 
29, BOOR 
39, BOOR 
9. BOOR 
9.500R 
::i^j^7. 7,2O0R 

7P'yf-itHW'*--;^ 2,980P] 



FM-TOWNS-B0H(85MB/^-K7=-f:^?)SK) 

FMT-DP533[K'yl-f7^0.39;iJ,ft»«aCRT,?Jl-hSW) 

FMT-KBI05CJIS+-#-K,x>-+-#) 

FMT-402(MIDI-r:^*'-7i-;^) 

CM-32L(g^jg'E^zL-,)t.) 

Music-PR0-T0WNS[MIDI)(SI«ff5S,S*y7h) 







15jOOOnX36lil 



12f000n>">s(^ 



IOiOOOrXSOIS 



!3»500bx"@ 



ifl--^x49.BO0Rx en 



*-:*-X38.000nx 8 a 



*-■ ^;i32,800RxiOii] 



*-+-;^ 4-L 



i8ffl7'J-^#K' 



0-9898 

2- 



iSOOliS- 



/ 



(75)5076 IS n 082(283)0811 

226)8286 m 1^3 082(481)0502 

(54)0686 FAX 0466(43)1285 

81) 4325 lB«*«<B75ttSaai^-ac 

62) 5057 SBIiTSK (««(*«SiI> 





C>x-7-;^Y 



FM- TOWNS -2H (40MB' >-Kx-<:^?;*9ilf) 54B,000R 

FMT-DP533(K->l-fy^0 3^:U.SSftSCRT,f■J^^ir#) 69,800fq 

FMT-KBI05(JIS:?-f7'+-*-K,?^+-fJ) 30, ODOR 

SRS-150EX(gS:K§),7'>P'P^iKxf-:/)) 24, BOOR 

^■v^^i^-y^-::^ [I (va-x-f ^^■i'-A) 9.aOOR 

7D->t;-iH»ft'>— X 2.98Gn 

v'57.+:-y■y^(-7■?::^lffi^rt■y-::^) I, ODOR 

WD-40IGiSESi4&'^y3VT-'x?,-7'5;*x-7-Ji-ft) 29,800R 

WT-00lGt^^^,*■;^'J7^±TMIB««l) I9,800R 

'?i--7' • 7-( i'>-7-t>7.^-:'t- U— tJ^ 

^ffi-&tt-744,780R 



#!^ii 39S,000 



9,000„X36[1 



ZjOOOrx^sh 



5,OOOrX60[e] 



7»800bX"[^ 



'« 



#- + ;t26,800Rx 6 



*--*-::^21,600Rx 8@ 



#-:J-X23.7OORXI0[p| 



#-- 1;^ ^j;L 



TOWNS- -lOHSs ¥7-3' □7'-t--tryh 



FM-TOWNS-40H(40MB'^-K7=<:^?»e) 473,000R 

FMT-DP533(K';'hf>-?0.39iiJ.B)S«@CRT) 69, BOOR 

FMT-KB10S(JtS+-*-K,7^^'+-#) 3O,000R 

FMPR-204B(B0ffi,24F'yh»^-Se?7''J^9) BO,O00R 

FM60-71 1 C'Ji-^'V-T'Jl-) 6, BOOR 

G5C7-ypv7h.i'^7-fv?fffiK«Hm) 3B,O00R 

SIM-CITY B,800R 

7n>>.t:-iffiW'*— X 2,980R 

v'?x^'->-yKvO:tiElfl-^-A) l.OOOR 

7'iJ>-?ffla(A4A'vHft) lOOtt 400R 



y-5>440 



TOWNS 40Hf>WfS»*-tyh 



Sffi-&tt7IO.780R ^ 


5i-:7-7-f^fiifi 


lOvOOOnXse^ 


*-:^,7.4i,200RX6l5l 


8,000rX4S@ 


#-+;^31,600Rx BEl 


6vOOOnX60[°l 


--f^-:t-:^31,IOORxiO[sl 


9j700p3X72ia 


*-■ ^J^ ft L 



FM-TOWNS-40H(40Ma/«-KT-'-fX:*tSgi) 473,000R 

FMT-DP533[KyHi''y?^0.39iiJ,SIB«SCRT) 69, BOOR 

FMT-KBI05(JIS+-*-K,xi'+— l=t) BO.OOOR 
®*^«5*-«:^?(*-*■A?rol8*-J^S■S*>■£J.^-^) 12, BOOR 

'f>-iJ7T-fKA-/<— >i-7--<>J''*'-A) 9, BOOR 

^a-yt-JfflM'*— X 2.9B0R 

v?:7.d!-!r'yK-7'?:^iE»'*--j;) l,0O0R 



^ffi-g-|h599,380R-» ^I — "^ • ^'Yl^fflE 



9,OOOf9X36|p| 


*-f-:^3O,9OORx6 


7,000^x480 


#- + 7.24.800RX8Iel 


5,000nx60ll 


*-+-x2e,400RxiOIll 


8»200rX72@ 


-+;- + ,:^ f£L 




KfeKEIH lUWNb- 4UH4.+*V-/u-tvh 



FM-TOWN5-40H(40MB'\-K-?-fX:?}gC} 473, ODOR 

FMT-DP633(Kyl-fv-fO,39;U,KW«SCRT) 69. BOOR 

FMT-KB105(JIS+-;li-K,7'>*-#) 30,000R 

F-BAS 103863 ^"■:-f 7 45.000R 

B276AID0(B*BMS-DOS) IB.OODR 

Hi^C3>'<-f7V1.4L20 40,0OOR 

jiiJ-:f-v>K(7;i/?^y— >a>'7K"ii-f'-t— ¥-A) 8, BOOR 

gii'^>•>5>-r:^9- ■ t)*7.o^ts 9. BOOR 

7n'yf -iKW-y-;^ 2 , 9B0R 

-7'?;^*'yyK-7'?J^iH»fi'i--X) LOOOR 



FM-TOWNS-40H(40MB"— Kx-fA?®tE) 

FMT-DP633(Kyhfy?0,39iV.«»««CRT) 

FMT-KB105(JIS+-*-K,x>'+-#} 

FMPR-204B(80ffi,24K->'hA7-»K?7'iJ>-*) 

FM60-7ll(7'V>-5''ir-yil.} 

FM-OASYS[HO](*«a*S7-7'Dy7h:t7->X) 

Ei9J£CD-R0M 

^i— t^-f^^g-ISff ■ Sf^^O^SlSSfSftCD-ROM 

■?-7'Dt*Sft*3e ( B ffl'7-:;'nS6S) 



473,000R 
69.800R 

so.ooon 

80, ODOR 

6. BOOR 

5B.000R 

2B.000R 

20.000R 

l,200R 

1.200R 

8. BOOR 

2.9B0R 

l.OOOR 



^ffi^ff-698,380R' 



^I— "^ • T'^ifflli ^fiffi^tt759.IB0R^ 0X—y*7^^M 



10*000^X36^ 


#-+:^4l.2OORx60 


8,000^x480 


.-fi--^X31.600Rx8[Hl 


6fOOOnX6O0 


#-:t-:^31,lOORxlO0 


9,700nX72lB) 


*- + ;5 tcL 



12>OOOrX360 


#-:J-X4I,4OORX60 


10*000^X480 


*-t-X29,200Rx 8 


89000^X600 


*-:J-7.27,200RXiO|51 


1O»9OOnX7Z0 


*-■ ^a ftL 






7"-5>442 



TOWNS -20FJiBWiis-t-7!- 



FM-TOWNS-20F(32l:iyfCPU303B6SK) 
FMT-DP533(K7hf7^0.39iiJ.S»«SCRT,-f;l-hS14) 
FMT-KB106(JIS?'f7'+-*-K.x>4-#] 
PV-A24VM5(=Exi., 2400bps. MNP*v,^5) 
Habit^tV2(b:•;;i7'J^'■.■y3:,'ii^SV7^) 
TownsVNET-Vl . l-L20(S«aiiifty7h) 

Y=7v'r>{u-i\,-^\^'[v<f f-i-') 
'5X--7' ■ 7-f »x+'>;^#vh 



323.000R 
69. BOOR 
30.000R 
44, BOOR 
6. BOOR 
18.000R 
a. BOOR 
8, BOOR 
2,9B0R 
l.OOOR 
*- 1;^ 



g<l-t-tt5l3,980R* ^I*^"^ • /'•Yl^lffi 



11)OOOnX24lPl 



8)OOOrX36I§I 



6fOOOnX480 



7,800^x600 



^;~:t-:^35,300Rx 4[h) 



+;- + X22.7OORx60 



;t:--tX19.600Rx 80 



ff,—)--X ftL 



7*-7>443 



TOWNS 20F^fcMi»7'-i-tvi- 



FM-TOWNS-20F(32t'vhCPU80386t»E,FDD2«) 
FMT-DP533(K7l-f'/f-0,39ii),a»ftSCRT.?Jl.h^#) 
FMT-KB[05{JiS?-fy+-*-r.x>*-#) 
FMPR'204B(80tiT.ft7-*lK?7'';>?) 
FMeO-ZlKyj^?— *-- T'JI.) 
G-EDIT-TOWNS(g«ffi?'-57^y?1^SI!y7l-) 
#-C7?->-7^-;^ II (->i-x^>?'-!r-A) 
7n-yf-it8W-y-X 

:/!)>? ffl«t(A4-*f--i'X}i00te 
'?i-7' - y-f »x+>;^+yh 



323,00OR 

69, BOOR 

30.000R 

BO.OOOR 

6. BOOR 

30, DOOR 

9, BOOR 

2,980R 

l,OOOR 

400R 



M1-553.780R 



8)OOOrX360 



6,000bX48[H| 



4,OOOhX6O0 



7,OOOnX720 



35&. OOOm 



*--^;^24,700Rx 60 



*-■ t-:^21,200Rx 30 



#-:f-,X24,3OORXlO0 



if-- + 7. ti\. 



Z^7>iH 



TOWNS 20FfifeL6-^-A^:vh 



FM-TOWNS-20F(32t'V^CPUB03B6SK,FDD2t) 323,000R 

FMT-DP533(Ky|'f-;^f-D.39:i),SSS«CRT.-fJH-Sf=t) 69, BOOR 

FMT-KBI05(JiS?'f7'+-*-K,r>'4-«) 30,000R 

XE-iAPi7-f-a^'-:^3-i'<"A-) I3,800R 

SRS-l50EX(RMS,?:'7'rt«;^f-ft) 24, BOOR 

K?-v->->-(a-'i'7'i--'f>^'!r-A) B.BOOR 

yi)-^-^>¥i7l\'7-j'—>a>7h-'<>^^-^-J^) B,800R 

-i->-i;77-fK:^-'^'->i-T-^:^i''*r-i.) 9. BOOR 

iBEy>>!3>vj^?-,S*;^(7}i!ftBI 9, BOOR 

^nyf-iRW-r-,:^ 2 . 960R 

^.>:x^;-»-vKv'?::^iKW-y-:^) l.OOOR 

WD-40IG(«ES!4S'<y3>-x:^7.v'>Xx-yji-#) 29, BOOR 

171-7 ■ /--f »7"^>X+vh -fj-'trx 

^fi^l1-532.380R^ i^I "7 • ^'Y'l^fffi 
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